Mercurial > emacs
changeset 104514:c65d65798b34
Fix last change to use semantic-varalias-obsolete.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 26 Sep 2009 18:03:54 +0000 |
| parents | a6a812dd2d88 |
| children | fc482eb30cf7 |
| files | lisp/cedet/semantic.el lisp/cedet/semantic/db-file.el lisp/cedet/semantic/db-mode.el lisp/cedet/semantic/decorate/mode.el lisp/cedet/semantic/idle.el |
| diffstat | 5 files changed, 21 insertions(+), 29 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cedet/semantic.el Sat Sep 26 17:47:11 2009 +0000 +++ b/lisp/cedet/semantic.el Sat Sep 26 18:03:54 2009 +0000 @@ -269,12 +269,12 @@ This guarantees that the DB will go before other modes that require a parse of the buffer.") -(define-obsolete-variable-alias 'semantic-init-hooks - 'semantic-init-hook "23.2") -(define-obsolete-variable-alias 'semantic-init-mode-hooks - 'semantic-init-mode-hook "23.2") -(define-obsolete-variable-alias 'semantic-init-db-hooks - 'semantic-init-db-hook "23.2") +(semantic-varalias-obsolete 'semantic-init-hooks + 'semantic-init-hook) +(semantic-varalias-obsolete 'semantic-init-mode-hooks + 'semantic-init-mode-hook) +(semantic-varalias-obsolete 'semantic-init-db-hooks + 'semantic-init-db-hook) (defvar semantic-new-buffer-fcn-was-run nil "Non nil after `semantic-new-buffer-fcn' has been executed.")
--- a/lisp/cedet/semantic/db-file.el Sat Sep 26 17:47:11 2009 +0000 +++ b/lisp/cedet/semantic/db-file.el Sat Sep 26 18:03:54 2009 +0000 @@ -69,15 +69,14 @@ :type nil) (defcustom semanticdb-save-database-hook nil - "Normal hook run after a database is saved. + "Hook run after a database is saved. Each function is called with one argument, the object representing the database recently written." :group 'semanticdb :type 'hook) -(define-obsolete-variable-alias - 'semanticdb-save-database-hooks - 'semanticdb-save-database-hook "23.2") +(semantic-varalias-obsolete 'semanticdb-save-database-hooks + 'semanticdb-save-database-hook) (defvar semanticdb-dir-sep-char (if (boundp 'directory-sep-char) (symbol-value 'directory-sep-char)
--- a/lisp/cedet/semantic/db-mode.el Sat Sep 26 17:47:11 2009 +0000 +++ b/lisp/cedet/semantic/db-mode.el Sat Sep 26 18:03:54 2009 +0000 @@ -48,15 +48,14 @@ (custom-set-default sym val))) (defcustom semanticdb-mode-hook nil - "Normal hook run whenever `global-semanticdb-minor-mode' is run. + "Hook run whenever `global-semanticdb-minor-mode' is run. Use `semanticdb-minor-mode-p' to determine if the mode has been turned on or off." :group 'semanticdb :type 'hook) -(define-obsolete-variable-alias - 'semanticdb-mode-hooks - 'semanticdb-mode-hook "23.2") +(semantic-varalias-obsolete 'semanticdb-mode-hooks + 'semanticdb-mode-hook) ;;; Start/Stop database use ;;
--- a/lisp/cedet/semantic/decorate/mode.el Sat Sep 26 17:47:11 2009 +0000 +++ b/lisp/cedet/semantic/decorate/mode.el Sat Sep 26 18:03:54 2009 +0000 @@ -195,11 +195,10 @@ ;; that the next idle step will do the decoration change, but at the ;; time of the state change, minimal work would be done. (defvar semantic-decorate-pending-decoration-hook nil - "Functions to call with pending decoration changes.") + "Normal hook run to perform pending decoration changes.") -(define-obsolete-variable-alias - 'semantic-decorate-pending-decoration-hooks - 'semantic-decorate-pending-decoration-hook "23.2") +(semantic-varalias-obsolete 'semantic-decorate-pending-decoration-hooks + 'semantic-decorate-pending-decoration-hook) (defun semantic-decorate-add-pending-decoration (fcn &optional buffer) "Add a pending decoration change represented by FCN.
--- a/lisp/cedet/semantic/idle.el Sat Sep 26 17:47:11 2009 +0000 +++ b/lisp/cedet/semantic/idle.el Sat Sep 26 18:03:54 2009 +0000 @@ -501,24 +501,19 @@ ;; :type 'boolean) (defvar semantic-before-idle-scheduler-reparse-hook nil - "Normal hook run before option `semantic-idle-scheduler' begins parsing. + "Hook run before option `semantic-idle-scheduler' begins parsing. If any hook function throws an error, this variable is reset to nil. This hook is not protected from lexical errors.") -(define-obsolete-variable-alias - 'semantic-before-idle-scheduler-reparse-hooks - 'semantic-before-idle-scheduler-reparse-hook - "23.2") - (defvar semantic-after-idle-scheduler-reparse-hook nil - "Normal hook run after option `semantic-idle-scheduler' has parsed. + "Hook run after option `semantic-idle-scheduler' has parsed. If any hook function throws an error, this variable is reset to nil. This hook is not protected from lexical errors.") -(define-obsolete-variable-alias - 'semantic-after-idle-scheduler-reparse-hooks - 'semantic-after-idle-scheduler-reparse-hook - "23.2") +(semantic-varalias-obsolete 'semantic-before-idle-scheduler-reparse-hooks + 'semantic-before-idle-scheduler-reparse-hook) +(semantic-varalias-obsolete 'semantic-after-idle-scheduler-reparse-hooks + 'semantic-after-idle-scheduler-reparse-hook) (defun semantic-idle-scheduler-refresh-tags () "Refreshes the current buffer's tags.