18 lines
659 B
EmacsLisp
18 lines
659 B
EmacsLisp
(defun org-space-key (&optional arg)
|
|
"Insert two spaces after a period."
|
|
(interactive "p")
|
|
|
|
(when (looking-back "[.!?…]")
|
|
(call-interactively 'self-insert-command arg))
|
|
(call-interactively 'self-insert-command arg))
|
|
|
|
;; From http://pages.sachachua.com/.emacs.d/Sacha.html
|
|
(defun sachachua/fill-or-unfill-paragraph (&optional unfill region)
|
|
"Fill paragraph (or REGION).
|
|
With the prefix argument UNFILL, unfill it instead."
|
|
(interactive (progn
|
|
(barf-if-buffer-read-only)
|
|
(list (if current-prefix-arg 'unfill) t)))
|
|
(let ((fill-column (if unfill (point-max) fill-column)))
|
|
(fill-paragraph nil region)))
|