Make 'flash-hline actually work

8 years ago · 6663b150f2
parent 87b5bb1111
commit 6663b150f2
1 changed files with 2 additions and 0 deletions
--- a/global.org
+++ b/global.org
@ -453,6 +453,8 @@
    ;; (eval-after-load 'tramp '(setenv "SHELL" "/bin/bash"))

    (defun flash-hline ()
+       "Flash the current line to emph some mistake"
+       (interactive)
      (let ((fg (face-foreground 'default))
 	    (bg (face-background 'hl-line)))
 	(set-face-background 'hl-line fg)