From 851040a566e53b9bce4400eda47b90647b96bb19 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 8 Jul 2001 22:58:10 +0000 Subject: [PATCH] (define-minor-mode): Use eval-after-load to delay the call to for global minor modes. (easy-mmode-define-navigation): Only recenter if interactive. --- lisp/ChangeLog | 22 ++++++++++++++-------- lisp/emacs-lisp/easy-mmode.el | 7 +++++-- 2 files changed, 19 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c2816bd12dd..6a67be5a1ac 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-07-08 Stefan Monnier + + * emacs-lisp/easy-mmode.el (define-minor-mode): Use eval-after-load + to delay the call to for global minor modes. + (easy-mmode-define-navigation): Only recenter if interactive. + 2001-07-06 Gerd Moellmann * emacs-lisp/lisp-mode.el (lisp-mode-shared-map): Bind TAB @@ -15,8 +21,8 @@ 2001-07-06 Vinicius Jose Latorre - * ps-print.el: Use locale dependant date to print date in header. Doc - fix. + * ps-print.el: Use locale dependant date to print date in header. + Doc fix. (ps-print-version): New version number (6.5.3). (ps-right-header, ps-right-footer): Initialization and doc fix. (ps-time-stamp-locale-default): New fun. @@ -55,18 +61,18 @@ like `struct X Y', finish with point after Y. 2001-07-04 Simon Josefsson - + * mail/sendmail.el (sendmail-send-it): Look at `sendmail-program' - in caller buffer. + in caller buffer. 2001-07-03 Eli Zaretskii * find-file.el (ff-find-the-other-file): Use file-name-nondirectory - instead of string-match to find the basename of the file. From - Pascal Obry . + instead of string-match to find the basename of the file. + From Pascal Obry . - * net/browse-url.el (browse-url-default-windows-browser): Support - the MS-DOS port when it runs on Windows. + * net/browse-url.el (browse-url-default-windows-browser): + Support the MS-DOS port when it runs on Windows. (browse-url-browser-function) [ms-dos]: Default to browse-url-default-windows-browser. diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index e1cda3bbf73..9d99e5fe097 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -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))) -- 2.39.2