Mercurial > emacs
changeset 62772:f2892faa87d4
* progmodes/ada-mode.el (ada-mode):
* progmodes/antlr-mode.el (antlr-mode):
* progmodes/autoconf.el (autoconf-mode):
* progmodes/dcl-mode.el (dcl-mode):
* progmodes/delphi.el (delphi-mode):
* progmodes/ebrowse.el (ebrowse-tree-mode)
(ebrowse-electric-list-mode, ebrowse-member-mode)
(ebrowse-electric-position-mode):
* progmodes/f90.el (f90-mode):
* progmodes/fortran.el (fortran-mode):
* progmodes/icon.el (icon-mode):
* progmodes/idlw-help.el (idlwave-help-mode):
* progmodes/idlw-shell.el (idlwave-shell-mode):
* progmodes/idlwave.el (idlwave-mode):
* progmodes/inf-lisp.el (inferior-lisp-mode):
* progmodes/m4-mode.el (m4-mode):
* progmodes/meta-mode.el (metafont-mode, metapost-mode):
* progmodes/modula2.el (modula-2-mode):
* progmodes/octave-inf.el (inferior-octave-mode):
* progmodes/octave-mod.el (octave-mode):
* progmodes/pascal.el (pascal-mode):
* progmodes/sh-script.el (sh-mode):
* progmodes/sql.el (sql-mode, sql-interactive-mode):
* progmodes/vhdl-mode.el (vhdl-mode):
* progmodes/xscheme.el (scheme-interaction-mode): Use run-mode-hooks.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Thu, 26 May 2005 16:39:28 +0000 |
| parents | a0b0cf078b7b |
| children | b55470973370 |
| files | lisp/progmodes/ada-mode.el lisp/progmodes/antlr-mode.el lisp/progmodes/autoconf.el lisp/progmodes/dcl-mode.el lisp/progmodes/delphi.el lisp/progmodes/ebrowse.el lisp/progmodes/f90.el lisp/progmodes/fortran.el lisp/progmodes/icon.el lisp/progmodes/idlw-help.el lisp/progmodes/idlw-shell.el lisp/progmodes/idlwave.el lisp/progmodes/inf-lisp.el lisp/progmodes/m4-mode.el lisp/progmodes/meta-mode.el lisp/progmodes/modula2.el lisp/progmodes/octave-inf.el lisp/progmodes/octave-mod.el lisp/progmodes/pascal.el lisp/progmodes/sh-script.el lisp/progmodes/sql.el lisp/progmodes/vhdl-mode.el lisp/progmodes/xscheme.el |
| diffstat | 23 files changed, 28 insertions(+), 28 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/ada-mode.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/ada-mode.el Thu May 26 16:39:28 2005 +0000 @@ -1369,7 +1369,7 @@ (min ada-indent (current-column)))))) (add-hook 'skeleton-end-hook 'ada-adjust-case-skeleton nil t) - (run-hooks 'ada-mode-hook) + (run-mode-hooks 'ada-mode-hook) ;; To be run after the hook, in case the user modified ;; ada-fill-comment-prefix
--- a/lisp/progmodes/antlr-mode.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/antlr-mode.el Thu May 26 16:39:28 2005 +0000 @@ -2624,7 +2624,7 @@ (imenu-add-to-menubar (if (stringp antlr-imenu-name) antlr-imenu-name "Index"))) (antlr-set-tabs) - (run-hooks 'antlr-mode-hook)) + (run-mode-hooks 'antlr-mode-hook)) ;; A smarter version of `group-buffers-menu-by-mode-then-alphabetically' (in ;; XEmacs) could use the following property. The header of the submenu would
--- a/lisp/progmodes/autoconf.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/autoconf.el Thu May 26 16:39:28 2005 +0000 @@ -103,7 +103,7 @@ (set (make-local-variable 'indent-line-function) #'indent-relative) (set (make-local-variable 'add-log-current-defun-function) #'autoconf-current-defun-function) - (run-hooks 'autoconf-mode-hook)) + (run-mode-hooks 'autoconf-mode-hook)) (provide 'autoconf-mode)
--- a/lisp/progmodes/dcl-mode.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/dcl-mode.el Thu May 26 16:39:28 2005 +0000 @@ -641,7 +641,7 @@ (setq mode-name "DCL") (use-local-map dcl-mode-map) (tempo-use-tag-list 'dcl-tempo-tags) - (run-hooks 'dcl-mode-hook)) + (run-mode-hooks 'dcl-mode-hook)) ;;; *** Movement commands ***************************************************
--- a/lisp/progmodes/delphi.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/delphi.el Thu May 26 16:39:28 2005 +0000 @@ -2002,7 +2002,7 @@ (delphi-parse-region (point-min) (point-max)) (delphi-progress-done)))) - (run-hooks 'delphi-mode-hook)) + (run-mode-hooks 'delphi-mode-hook)) ;;; arch-tag: 410e192d-e9b5-4397-ad62-12340fc3fa41 ;;; delphi.el ends here
--- a/lisp/progmodes/ebrowse.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/ebrowse.el Thu May 26 16:39:28 2005 +0000 @@ -1162,7 +1162,7 @@ (when tree (ebrowse-redraw-tree) (set-buffer-modified-p nil)) - (run-hooks 'ebrowse-tree-mode-hook))) + (run-mode-hooks 'ebrowse-tree-mode-hook))) @@ -2026,7 +2026,7 @@ truncate-lines t buffer-read-only t major-mode 'ebrowse-electric-list-mode) - (run-hooks 'ebrowse-electric-list-mode-hook)) + (run-mode-hooks 'ebrowse-electric-list-mode-hook)) (defun ebrowse-list-tree-buffers () @@ -2277,7 +2277,7 @@ ebrowse--const-display-flag nil ebrowse--pure-display-flag nil) (modify-syntax-entry ?_ (char-to-string (char-syntax ?a))) - (run-hooks 'ebrowse-member-mode-hook)) + (run-mode-hooks 'ebrowse-member-mode-hook)) @@ -3987,7 +3987,7 @@ truncate-lines t buffer-read-only t major-mode 'ebrowse-electric-position-mode) - (run-hooks 'ebrowse-electric-position-mode-hook)) + (run-mode-hooks 'ebrowse-electric-position-mode-hook)) (defun ebrowse-draw-position-buffer ()
--- a/lisp/progmodes/f90.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/f90.el Thu May 26 16:39:28 2005 +0000 @@ -830,7 +830,7 @@ (set (make-local-variable 'end-of-defun-function) 'f90-end-of-subprogram) (set (make-local-variable 'add-log-current-defun-function) #'f90-current-defun) - (run-hooks 'f90-mode-hook)) + (run-mode-hooks 'f90-mode-hook)) ;; Inline-functions.
--- a/lisp/progmodes/fortran.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/fortran.el Thu May 26 16:39:28 2005 +0000 @@ -799,7 +799,7 @@ #'fortran-current-defun) (set (make-local-variable 'dabbrev-case-fold-search) 'case-fold-search) (set (make-local-variable 'gud-find-expr-function) 'fortran-gud-find-expr) - (run-hooks 'fortran-mode-hook)) + (run-mode-hooks 'fortran-mode-hook)) (defun fortran-gud-find-expr ()
--- a/lisp/progmodes/icon.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/icon.el Thu May 26 16:39:28 2005 +0000 @@ -205,7 +205,7 @@ (cons '(icon-mode "\\<procedure\\>" "\\<end\\>" nil icon-forward-sexp-function) hs-special-modes-alist))) - (run-hooks 'icon-mode-hook)) + (run-mode-hooks 'icon-mode-hook)) ;; This is used by indent-for-comment to decide how much to ;; indent a comment in Icon code based on its context.
--- a/lisp/progmodes/idlw-help.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/idlw-help.el Thu May 26 16:39:28 2005 +0000 @@ -278,7 +278,7 @@ (set (make-local-variable 'idlwave-help-def-pos) nil) (set (make-local-variable 'idlwave-help-args) nil) (set (make-local-variable 'idlwave-help-in-header) nil) - (run-hooks 'idlwave-help-mode-hook)) + (run-mode-hooks 'idlwave-help-mode-hook)) (defun idlwave-html-help-location () "Return the help directory where HTML files are, or nil if that is unknown."
--- a/lisp/progmodes/idlw-shell.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/idlw-shell.el Thu May 26 16:39:28 2005 +0000 @@ -1055,7 +1055,7 @@ (set (make-local-variable 'tool-bar-map) nil) ;; Run the hooks. - (run-hooks 'idlwave-shell-mode-hook) + (run-mode-hooks 'idlwave-shell-mode-hook) (idlwave-shell-send-command idlwave-shell-initial-commands nil 'hide) ;; Turn off IDL's ^d interpreting, and define a system ;; variable which knows the version of IDLWAVE
--- a/lisp/progmodes/idlwave.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/idlwave.el Thu May 26 16:39:28 2005 +0000 @@ -1954,7 +1954,7 @@ (idlwave-new-buffer-update) ;; Run the mode hook - (run-hooks 'idlwave-mode-hook)) + (run-mode-hooks 'idlwave-mode-hook)) (defvar idlwave-setup-done nil) (defun idlwave-setup ()
--- a/lisp/progmodes/inf-lisp.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/inf-lisp.el Thu May 26 16:39:28 2005 +0000 @@ -269,7 +269,7 @@ (use-local-map inferior-lisp-mode-map) ;c-c c-k for "kompile" file (setq comint-get-old-input (function lisp-get-old-input)) (setq comint-input-filter (function lisp-input-filter)) - (run-hooks 'inferior-lisp-mode-hook)) + (run-mode-hooks 'inferior-lisp-mode-hook)) (defun lisp-get-old-input () "Return a string containing the sexp ending at point."
--- a/lisp/progmodes/m4-mode.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/m4-mode.el Thu May 26 16:39:28 2005 +0000 @@ -147,7 +147,7 @@ font-lock-defaults '(m4-font-lock-keywords nil) ) (set-syntax-table m4-mode-syntax-table) - (run-hooks 'm4-mode-hook)) + (run-mode-hooks 'm4-mode-hook)) (provide 'm4-mode) ;;stuff to play with for debugging
--- a/lisp/progmodes/meta-mode.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/meta-mode.el Thu May 26 16:39:28 2005 +0000 @@ -998,7 +998,7 @@ (setq meta-complete-list (list (list "\\<\\(\\sw+\\)" 1 'meta-symbol-list) (list "" 'ispell-complete-word))) - (run-hooks 'meta-common-mode-hook 'metafont-mode-hook)) + (run-mode-hooks 'meta-common-mode-hook 'metafont-mode-hook)) ;;;###autoload (defun metapost-mode () @@ -1023,7 +1023,7 @@ (setq meta-complete-list (list (list "\\<\\(\\sw+\\)" 1 'meta-symbol-list) (list "" 'ispell-complete-word))) - (run-hooks 'meta-common-mode-hook 'metapost-mode-hook)) + (run-mode-hooks 'meta-common-mode-hook 'metapost-mode-hook)) ;;; Just in case ...
--- a/lisp/progmodes/modula2.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/modula2.el Thu May 26 16:39:28 2005 +0000 @@ -172,7 +172,7 @@ ;; Obsoleted by Emacs 19.35 parse-partial-sexp's COMMENTSTOP. ;(font-lock-comment-start-regexp . "(\\*") )) - (run-hooks 'm2-mode-hook)) + (run-mode-hooks 'm2-mode-hook)) ;; Regexps written with help from Ron Forrester <ron@orcad.com> ;; and Spencer Allain <sallain@teknowledge.com>.
--- a/lisp/progmodes/octave-inf.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/octave-inf.el Thu May 26 16:39:28 2005 +0000 @@ -158,7 +158,7 @@ inferior-octave-dynamic-complete-functions) (comint-read-input-ring t) - (run-hooks 'inferior-octave-mode-hook)) + (run-mode-hooks 'inferior-octave-mode-hook)) ;;;###autoload (defun inferior-octave (&optional arg)
--- a/lisp/progmodes/octave-mod.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/octave-mod.el Thu May 26 16:39:28 2005 +0000 @@ -555,7 +555,7 @@ (octave-add-octave-menu) (octave-initialize-completions) - (run-hooks 'octave-mode-hook)) + (run-mode-hooks 'octave-mode-hook)) ;;; Miscellaneous useful functions (defun octave-describe-major-mode ()
--- a/lisp/progmodes/pascal.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/pascal.el Thu May 26 16:39:28 2005 +0000 @@ -383,7 +383,7 @@ (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression pascal-imenu-generic-expression) (setq imenu-case-fold-search t) - (run-hooks 'pascal-mode-hook)) + (run-mode-hooks 'pascal-mode-hook))
--- a/lisp/progmodes/sh-script.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/sh-script.el Thu May 26 16:39:28 2005 +0000 @@ -1392,7 +1392,7 @@ (string-match "\\.m?spec\\'" buffer-file-name)) "rpm"))))) (sh-set-shell (or interpreter sh-shell-file) nil nil)) - (run-hooks 'sh-mode-hook)) + (run-mode-hooks 'sh-mode-hook)) ;;;###autoload (defalias 'shell-script-mode 'sh-mode)
--- a/lisp/progmodes/sql.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/sql.el Thu May 26 16:39:28 2005 +0000 @@ -2249,7 +2249,7 @@ (setq local-abbrev-table sql-mode-abbrev-table) (setq abbrev-all-caps 1) ;; Run hook - (run-hooks 'sql-mode-hook) + (run-mode-hooks 'sql-mode-hook) ;; Catch changes to sql-product and highlight accordingly (sql-highlight-product) (add-hook 'hack-local-variables-hook 'sql-highlight-product t t)) @@ -2367,7 +2367,7 @@ (make-local-variable 'sql-input-ring-separator) (make-local-variable 'sql-input-ring-file-name) ;; Run hook. - (run-hooks 'sql-interactive-mode-hook) + (run-mode-hooks 'sql-interactive-mode-hook) ;; Set comint based on user overrides. (setq comint-prompt-regexp sql-prompt-regexp) (setq left-margin sql-prompt-length)
--- a/lisp/progmodes/vhdl-mode.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/vhdl-mode.el Thu May 26 16:39:28 2005 +0000 @@ -4622,7 +4622,7 @@ (if noninteractive "" " See menu for documentation and release notes.")) ;; run hooks - (run-hooks 'vhdl-mode-hook)) + (run-mode-hooks 'vhdl-mode-hook)) (defun vhdl-activate-customizations () "Activate all customizations on local variables."
--- a/lisp/progmodes/xscheme.el Thu May 26 15:28:32 2005 +0000 +++ b/lisp/progmodes/xscheme.el Thu May 26 16:39:28 2005 +0000 @@ -338,7 +338,7 @@ (setq xscheme-previous-process-state (cons nil nil))))))) (scheme-interaction-mode-initialize) (scheme-mode-variables) - (run-hooks 'scheme-mode-hook 'scheme-interaction-mode-hook)) + (run-mode-hooks 'scheme-mode-hook 'scheme-interaction-mode-hook)) (defun exit-scheme-interaction-mode () "Take buffer out of scheme interaction mode"