Make more load-hooks obsolete
* lisp/align.el (align-load-hook): * lisp/autorevert.el (auto-revert-load-hook): * lisp/bookmark.el (bookmark-load-hook): * lisp/cmuscheme.el (cmuscheme-load-hook): * lisp/dired.el (dired-load-hook): * lisp/expand.el (expand-load-hook): * lisp/ibuffer.el (ibuffer-load-hook): * lisp/msb.el (msb-after-load-hook): * lisp/recentf.el (recentf-load-hook): * lisp/speedbar.el (speedbar-load-hook): * lisp/strokes.el (strokes-load-hook): * lisp/calc/calc.el (calc-load-hook): * lisp/calendar/timeclock.el (timeclock-load-hook): * lisp/emulation/viper-init.el (viper-load-hook): * lisp/progmodes/cwarn.el (cwarn-load-hook): * lisp/progmodes/idlwave.el (idlwave-load-hook): * lisp/progmodes/inf-lisp.el (inferior-lisp-load-hook): * lisp/progmodes/meta-mode.el (meta-mode-load-hook): * lisp/textmodes/reftex-vars.el (reftex-load-hook): * lisp/textmodes/table.el (table-load-hook): * lisp/url/url-vars.el (url-load-hook): * lisp/vc/ediff-init.el (ediff-load-hook): Obsolete for with-eval-after-load.
This commit is contained in:
parent
6dbe2c932a
commit
680021ebde
22 changed files with 48 additions and 9 deletions
|
@ -129,6 +129,8 @@
|
|||
"Hook that gets run after the aligner has been loaded."
|
||||
:type 'hook
|
||||
:group 'align)
|
||||
(make-obsolete-variable 'align-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defcustom align-indent-before-aligning nil
|
||||
"If non-nil, indent the marked region before aligning it."
|
||||
|
|
|
@ -242,6 +242,8 @@ For more information, see Info node `(emacs)Autorevert'."
|
|||
:tag "Load Hook"
|
||||
:group 'auto-revert
|
||||
:type 'hook)
|
||||
(make-obsolete-variable 'auto-revert-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defcustom auto-revert-check-vc-info nil
|
||||
"If non-nil Auto-Revert Mode reliably updates version control info.
|
||||
|
|
|
@ -2321,6 +2321,8 @@ strings returned are not."
|
|||
;; Load Hook
|
||||
(defvar bookmark-load-hook nil
|
||||
"Hook run at the end of loading library `bookmark.el'.")
|
||||
(make-obsolete-variable 'bookmark-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
;; Exit Hook, called from kill-emacs-hook
|
||||
(defvar bookmark-exit-hook nil
|
||||
|
|
|
@ -884,6 +884,8 @@ Used by `calc-user-invocation'.")
|
|||
|
||||
(defvar calc-load-hook nil
|
||||
"Hook run when calc.el is loaded.")
|
||||
(make-obsolete-variable 'calc-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defvar calc-window-hook nil
|
||||
"Hook called to create the Calc window.")
|
||||
|
|
|
@ -193,6 +193,8 @@ to today."
|
|||
(defcustom timeclock-load-hook nil
|
||||
"Hook that gets run after timeclock has been loaded."
|
||||
:type 'hook)
|
||||
(make-obsolete-variable 'timeclock-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defcustom timeclock-in-hook nil
|
||||
"A hook run every time an \"in\" event is recorded."
|
||||
|
|
|
@ -517,6 +517,8 @@ command to run."
|
|||
This is a good place to put keybindings."
|
||||
:type 'hook
|
||||
:group 'cmuscheme)
|
||||
(make-obsolete-variable 'cmuscheme-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(run-hooks 'cmuscheme-load-hook)
|
||||
|
||||
|
|
|
@ -230,6 +230,8 @@ The target is used in the prompt for file copy, rename etc."
|
|||
You can customize key bindings or load extensions with this."
|
||||
:group 'dired
|
||||
:type 'hook)
|
||||
(make-obsolete-variable 'dired-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defcustom dired-mode-hook nil
|
||||
"Run at the very end of `dired-mode'."
|
||||
|
@ -2210,7 +2212,6 @@ Hooks (use \\[describe-variable] to see their documentation):
|
|||
`dired-before-readin-hook'
|
||||
`dired-after-readin-hook'
|
||||
`dired-mode-hook'
|
||||
`dired-load-hook'
|
||||
|
||||
Keybindings:
|
||||
\\{dired-mode-map}"
|
||||
|
|
|
@ -922,6 +922,8 @@ Should be set in `viper-custom-file-name'."
|
|||
"Hooks run just after loading Viper."
|
||||
:type 'hook
|
||||
:group 'viper-hooks)
|
||||
(make-obsolete-variable 'viper-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defun viper-restore-cursor-type ()
|
||||
(condition-case nil
|
||||
|
|
|
@ -55,10 +55,8 @@
|
|||
;;
|
||||
;; you can also init some post-process hooks :
|
||||
;;
|
||||
;; (add-hook 'expand-load-hook
|
||||
;; (lambda ()
|
||||
;; (add-hook 'expand-expand-hook 'indent-according-to-mode)
|
||||
;; (add-hook 'expand-jump-hook 'indent-according-to-mode)))
|
||||
;; (add-hook 'expand-expand-hook 'indent-according-to-mode)
|
||||
;; (add-hook 'expand-jump-hook 'indent-according-to-mode)
|
||||
;;
|
||||
;; Remarks:
|
||||
;;
|
||||
|
@ -78,6 +76,8 @@
|
|||
"Hooks run when `expand.el' is loaded."
|
||||
:type 'hook
|
||||
:group 'expand)
|
||||
(make-obsolete-variable 'expand-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defcustom expand-expand-hook nil
|
||||
"Hooks run when an abbrev made by `expand-add-abbrevs' is expanded."
|
||||
|
|
|
@ -339,6 +339,8 @@ directory, like `default-directory'."
|
|||
(defcustom ibuffer-load-hook nil
|
||||
"Hook run when Ibuffer is loaded."
|
||||
:type 'hook)
|
||||
(make-obsolete-variable 'ibuffer-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defcustom ibuffer-marked-face 'warning
|
||||
"Face used for displaying marked buffers."
|
||||
|
|
|
@ -372,6 +372,8 @@ This is instead of the groups in `msb-menu-cond'."
|
|||
:type 'hook
|
||||
:set 'msb-custom-set
|
||||
:group 'msb)
|
||||
(make-obsolete-variable 'msb-after-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
;;;
|
||||
;;; Internal variables
|
||||
|
|
|
@ -168,6 +168,8 @@ deactivated."
|
|||
:tag "Load Hook"
|
||||
:group 'cwarn
|
||||
:type 'hook)
|
||||
(make-obsolete-variable 'cwarn-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
;;}}}
|
||||
;;{{{ The modes
|
||||
|
|
|
@ -1096,6 +1096,8 @@ class-arrows Object Arrows with class property"
|
|||
"Normal hook. Executed when idlwave.el is loaded."
|
||||
:group 'idlwave-misc
|
||||
:type 'hook)
|
||||
(make-obsolete-variable 'idlwave-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defvar idlwave-experimental nil
|
||||
"Non-nil means turn on a few experimental features.
|
||||
|
@ -1870,7 +1872,6 @@ The main features of this mode are
|
|||
|
||||
8. Hooks
|
||||
-----
|
||||
Loading idlwave.el runs `idlwave-load-hook'.
|
||||
Turning on `idlwave-mode' runs `idlwave-mode-hook'.
|
||||
|
||||
9. Documentation and Customization
|
||||
|
|
|
@ -130,9 +130,8 @@ mode. Default is whitespace followed by 0 or 1 single-letter colon-keyword
|
|||
|
||||
;;; "This function binds many inferior-lisp commands to C-c <letter> bindings,
|
||||
;;;where they are more accessible. C-c <letter> bindings are reserved for the
|
||||
;;;user, so these bindings are non-standard. If you want them, you should
|
||||
;;;have this function called by the inferior-lisp-load-hook:
|
||||
;;; (add-hook 'inferior-lisp-load-hook 'inferior-lisp-install-letter-bindings)
|
||||
;;;user, so these bindings are non-standard. If you want them:
|
||||
;;; (with-eval-after-load 'inf-lisp 'inferior-lisp-install-letter-bindings)
|
||||
;;;You can modify this function to install just the bindings you want."
|
||||
(defun inferior-lisp-install-letter-bindings ()
|
||||
(define-key lisp-mode-map "\C-ce" 'lisp-eval-defun-and-go)
|
||||
|
@ -632,6 +631,8 @@ See variable `lisp-describe-sym-command'."
|
|||
;;;===============================
|
||||
(defvar inferior-lisp-load-hook nil
|
||||
"This hook is run when the library `inf-lisp' is loaded.")
|
||||
(make-obsolete-variable 'inferior-lisp-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(run-hooks 'inferior-lisp-load-hook)
|
||||
|
||||
|
|
|
@ -895,6 +895,8 @@ The environment marked is the one that contains point or follows point."
|
|||
"Hook evaluated when first loading Metafont or MetaPost mode."
|
||||
:type 'hook
|
||||
:group 'meta-font)
|
||||
(make-obsolete-variable 'meta-mode-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defcustom meta-common-mode-hook nil
|
||||
"Hook evaluated by both `metafont-mode' and `metapost-mode'."
|
||||
|
|
|
@ -277,6 +277,8 @@ If `file-name-history' is not empty, do nothing."
|
|||
"Normal hook run at end of loading the `recentf' package."
|
||||
:group 'recentf
|
||||
:type 'hook)
|
||||
(make-obsolete-variable 'recentf-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defcustom recentf-filename-handlers nil
|
||||
"Functions to post process recent file names.
|
||||
|
|
|
@ -302,6 +302,8 @@ The default buffer is the buffer in the selected window in the attached frame."
|
|||
"Hooks run when speedbar is loaded."
|
||||
:group 'speedbar
|
||||
:type 'hook)
|
||||
(make-obsolete-variable 'speedbar-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defcustom speedbar-reconfigure-keymaps-hook nil
|
||||
"Hooks run when the keymaps are regenerated."
|
||||
|
|
|
@ -296,6 +296,8 @@ the corresponding interactive function.")
|
|||
|
||||
(defvar strokes-load-hook nil
|
||||
"Functions to be called when Strokes is loaded.")
|
||||
(make-obsolete-variable 'strokes-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
;;; ### NOT IMPLEMENTED YET ###
|
||||
;;(defvar edit-strokes-menu
|
||||
|
|
|
@ -2100,6 +2100,8 @@ construct: \\bbb [xxx] {aaa}."
|
|||
"Hook which is being run when loading reftex.el."
|
||||
:group 'reftex-miscellaneous-configurations
|
||||
:type 'hook)
|
||||
(make-obsolete-variable 'reftex-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defcustom reftex-mode-hook nil
|
||||
"Hook which is being run when turning on RefTeX mode."
|
||||
|
|
|
@ -793,6 +793,8 @@ simply by any key input."
|
|||
"List of functions to be called after the table is first loaded."
|
||||
:type 'hook
|
||||
:group 'table-hooks)
|
||||
(make-obsolete-variable 'table-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defcustom table-point-entered-cell-hook nil
|
||||
"List of functions to be called after point entered a table cell."
|
||||
|
|
|
@ -430,6 +430,8 @@ Should be one of:
|
|||
"Hook run after initializing the URL library."
|
||||
:group 'url
|
||||
:type 'hook)
|
||||
(make-obsolete-variable 'url-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defconst url-working-buffer " *url-work")
|
||||
|
||||
|
|
|
@ -452,6 +452,8 @@ For each buffer, the hooks are run with that buffer made current."
|
|||
"Hook run after Ediff is loaded. Can be used to change defaults."
|
||||
:type 'hook
|
||||
:group 'ediff-hook)
|
||||
(make-obsolete-variable 'ediff-load-hook
|
||||
"use `with-eval-after-load' instead." "28.1")
|
||||
|
||||
(defcustom ediff-mode-hook nil
|
||||
"Hook run just after ediff-mode is set up in the control buffer.
|
||||
|
|
Loading…
Add table
Reference in a new issue