/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.410 by monnier, Sun Sep 19 06:07:38 2004 UTC revision 1.411 by teirllm, Tue Sep 21 00:37:22 2004 UTC
# Line 1944  This is run just before the mode depende Line 1944  This is run just before the mode depende
1944  (defun run-mode-hooks (&rest hooks)  (defun run-mode-hooks (&rest hooks)
1945    "Run mode hooks `delayed-mode-hooks' and HOOKS, or delay HOOKS.    "Run mode hooks `delayed-mode-hooks' and HOOKS, or delay HOOKS.
1946  Execution is delayed if `delay-mode-hooks' is non-nil.  Execution is delayed if `delay-mode-hooks' is non-nil.
1947    If `delay-mode-hooks' is nil, run `after-change-major-mode-hook'
1948    after running the mode hooks.
1949  Major mode functions should use this."  Major mode functions should use this."
1950    (if delay-mode-hooks    (if delay-mode-hooks
1951        ;; Delaying case.        ;; Delaying case.
# Line 1952  Major mode functions should use this." Line 1954  Major mode functions should use this."
1954      ;; Normal case, just run the hook as before plus any delayed hooks.      ;; Normal case, just run the hook as before plus any delayed hooks.
1955      (setq hooks (nconc (nreverse delayed-mode-hooks) hooks))      (setq hooks (nconc (nreverse delayed-mode-hooks) hooks))
1956      (setq delayed-mode-hooks nil)      (setq delayed-mode-hooks nil)
1957      (run-hooks 'after-change-major-mode-hook)      (apply 'run-hooks hooks)
1958      (apply 'run-hooks hooks)))      (run-hooks 'after-change-major-mode-hook)))
1959    
1960  (defmacro delay-mode-hooks (&rest body)  (defmacro delay-mode-hooks (&rest body)
1961    "Execute BODY, but delay any `run-mode-hooks'.    "Execute BODY, but delay any `run-mode-hooks'.

Legend:
Removed from v.1.410  
changed lines
  Added in v.1.411

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26