From 78b3791f9c60bb2fcad5acc163bdc5d034ea9908 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Tue, 14 Aug 2018 23:01:34 +0200 Subject: [PATCH] emacs.d/lisp/functions.el: Fix typos and broken binding --- .emacs.d/lisp/functions.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/.emacs.d/lisp/functions.el b/.emacs.d/lisp/functions.el index 2fb25472..b2546cea 100644 --- a/.emacs.d/lisp/functions.el +++ b/.emacs.d/lisp/functions.el @@ -86,7 +86,7 @@ selectively." (when flyspell-mode (flyspell-buffer))) (whitespace-mode 'toggle)) -(global-set-key (kbd "") 'flyspell-and-whitespace-mode) +(global-set-key (kbd "") #'ambrevar/flyspell-and-whitespace-mode) ;;; From https://www.reddit.com/r/emacs/comments/70bn7v/what_do_you_have_emacs_show_when_it_starts_up/. ;;; Supply a random fortune cookie as the *scratch* message. @@ -122,7 +122,7 @@ selectively." (newline-and-indent))) (defun ambrevar/current-minor-modes () - "Return which minor modes are enabled in the current buffer." + "Return the list of minor modes enabled in the current buffer." (interactive) (delq nil (mapcar (lambda (mode) @@ -442,8 +442,8 @@ Each paragraph stand on its line." (fill-region (region-beginning) (region-end) nil))) (defun ambrevar/youtube-dl-at-point (&optional url) - "Run 'youtube-dl' over thr URL at point. -If URL is non nil, use that instead." + "Run 'youtube-dl' over the URL at point. +If URL is non-nil, use that instead." (interactive) (setq url (or url (thing-at-point-url-at-point))) (let ((eshell-buffer-name "*youtube-dl*"))