procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(define-minor-mode): Use eval-after-load

Browse source 
to delay the call to <mode> for global minor modes.
(easy-mmode-define-navigation): Only recenter if interactive.
This commit is contained in:
Stefan Monnier 2001-07-08 22:58:10 +00:00
parent 24c7c69c7b
commit 851040a566
2 changed files with 19 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/easy-mmode.el
View file

@ -215,7 +215,9 @@ With zero or negative ARG turn mode off.
(symbol-value ',keymap-sym))))
;; If the mode is global, call the function according to the default.
,(if globalp `(if ,mode (,mode 1))))))
,(if globalp
`(if (and load-file-name ,mode)
(eval-after-load load-file-name '(,mode 1)))))))
;;;
;;; make global minor mode
@ -412,7 +414,8 @@ ENDFUN should return the end position (with or without moving point)."
(goto-char (or ,(if endfun `(,endfun)) (point-max)))
(error ,(format "No next %s" name)))
(goto-char (match-beginning 0))
(when (eq (current-buffer) (window-buffer (selected-window)))
(when (and (eq (current-buffer) (window-buffer (selected-window)))
(interactive-p))
(let ((endpt (or (save-excursion
,(if endfun `(,endfun)
`(re-search-forward ,re nil t 2)))