mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

Use a named function for global minor mode turn-on argument

Browse Source 
* lisp/display-line-numbers.el (turn-on-display-line-numbers-mode):
New function.
(global-display-line-numbers-mode): Use it.
This commit is contained in:
Mark Oteiza 2017-07-23 15:41:51 -04:00
parent 2c87aab579
commit f57c710772
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/display-line-numbers.el
View File

@ -90,14 +90,17 @@ the mode is on, set `display-line-numbers' directly."
(remove-hook 'pre-command-hook #'display-line-numbers-update-width t)
(setq display-line-numbers nil)))
;;;###autoload
(defun turn-on-display-line-numbers-mode ()
"Turn on `display-line-numbers-mode'."
(unless (or (minibufferp)
;; taken from linum.el
(and (daemonp) (null (frame-parameter nil 'client))))
(display-line-numbers-mode)))
;;;###autoload
(define-globalized-minor-mode global-display-line-numbers-mode
display-line-numbers-mode
(lambda ()
(unless (or (minibufferp)
;; taken from linum.el
(and (daemonp) (null (frame-parameter nil 'client))))
(display-line-numbers-mode))))
display-line-numbers-mode turn-on-display-line-numbers-mode)
(provide 'display-line-numbers)