Commit 80e21ef8 authored by Arjen Wiersma's avatar Arjen Wiersma

Updates from my main desktop, it has to change though.

I kinda made a mess of my configuration, so I will take some time to
do so soon.
parent 504f6cbb
......@@ -15,3 +15,19 @@
(setq init-dir (file-name-directory (or load-file-name (buffer-file-name))))
(org-babel-load-file (expand-file-name "loader.org" init-dir))
(defun find-first-non-ascii-char ()
"Find the first non-ascii character from point onwards."
(interactive)
(let (point)
(save-excursion
(setq point
(catch 'non-ascii
(while (not (eobp))
(or (eq (char-charset (following-char))
'ascii)
(throw 'non-ascii (point)))
(forward-char 1)))))
(if point
(goto-char point)
(message "No non-ascii characters."))))
(put 'downcase-region 'disabled nil)
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment