aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2019-11-16 14:35:36 +1300
committerPhil Sainty2019-11-18 21:25:36 +1300
commit206f36b38cfe50e92acc8d48926d1e5e2dec5939 (patch)
tree1b102083a81a90e2f09e37de69253817caf4e3bc
parentbf7934a63de50c8913d0304371ba404d81d540bd (diff)
downloademacs-206f36b38cfe50e92acc8d48926d1e5e2dec5939.tar.gz
emacs-206f36b38cfe50e92acc8d48926d1e5e2dec5939.zip
; * lisp/so-long.el: Use declare-function nearer the code that needs it
-rw-r--r--lisp/so-long.el15
1 files changed, 6 insertions, 9 deletions
diff --git a/lisp/so-long.el b/lisp/so-long.el
index 208bdf4ce91..c7931e737cc 100644
--- a/lisp/so-long.el
+++ b/lisp/so-long.el
@@ -415,15 +415,6 @@
415 415
416(declare-function longlines-mode "longlines") 416(declare-function longlines-mode "longlines")
417(defvar longlines-mode) 417(defvar longlines-mode)
418
419(declare-function outline-next-visible-heading "outline")
420(declare-function outline-previous-visible-heading "outline")
421(declare-function outline-toggle-children "outline")
422(declare-function outline-toggle-children "outline")
423
424(declare-function ad-find-advice "advice")
425(declare-function ad-remove-advice "advice")
426
427(defvar so-long-enabled nil 418(defvar so-long-enabled nil
428 "Set to nil to prevent `so-long' from being triggered automatically. 419 "Set to nil to prevent `so-long' from being triggered automatically.
429 420
@@ -985,6 +976,10 @@ REPLACEMENT is a `so-long-action-alist' item."
985 (rename-buffer buf) 976 (rename-buffer buf)
986 ;; Enable `outline-mode' and `view-mode' for user convenience. 977 ;; Enable `outline-mode' and `view-mode' for user convenience.
987 (outline-mode) 978 (outline-mode)
979 (declare-function outline-next-visible-heading "outline")
980 (declare-function outline-previous-visible-heading "outline")
981 (declare-function outline-toggle-children "outline")
982 (declare-function outline-toggle-children "outline")
988 (view-mode 1) 983 (view-mode 1)
989 ;; Add some custom local bindings. 984 ;; Add some custom local bindings.
990 (let ((map (make-sparse-keymap))) 985 (let ((map (make-sparse-keymap)))
@@ -1832,6 +1827,8 @@ If it appears in `%s', you should remove it."
1832 (when (version< so-long-version "1.0") 1827 (when (version< so-long-version "1.0")
1833 (remove-hook 'change-major-mode-hook 'so-long-change-major-mode) 1828 (remove-hook 'change-major-mode-hook 'so-long-change-major-mode)
1834 (require 'advice) 1829 (require 'advice)
1830 (declare-function ad-find-advice "advice")
1831 (declare-function ad-remove-advice "advice")
1835 (when (ad-find-advice 'hack-local-variables 'after 'so-long--file-local-mode) 1832 (when (ad-find-advice 'hack-local-variables 'after 'so-long--file-local-mode)
1836 (ad-remove-advice 'hack-local-variables 'after 'so-long--file-local-mode) 1833 (ad-remove-advice 'hack-local-variables 'after 'so-long--file-local-mode)
1837 (ad-activate 'hack-local-variables)) 1834 (ad-activate 'hack-local-variables))