Mercurial > emacs
changeset 105833:c214e49d9cc3
(with-mode-local): Doc fix.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 03 Nov 2009 03:22:30 +0000 |
| parents | 56392d7b0ff4 |
| children | a120770e3f00 |
| files | lisp/ChangeLog lisp/cedet/mode-local.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Nov 03 03:16:23 2009 +0000 +++ b/lisp/ChangeLog Tue Nov 03 03:22:30 2009 +0000 @@ -1,5 +1,7 @@ 2009-11-03 Glenn Morris <rgm@gnu.org> + * cedet/mode-local.el (with-mode-local): Doc fix. + * emacs-lisp/bytecomp.el (byte-compile-file-form-defvar) (byte-compile-file-form-define-abbrev-table) (byte-compile-file-form-custom-declare-variable)
--- a/lisp/cedet/mode-local.el Tue Nov 03 03:16:23 2009 +0000 +++ b/lisp/cedet/mode-local.el Tue Nov 03 03:22:30 2009 +0000 @@ -70,6 +70,9 @@ (or (get mode 'mode-local-parent) (get mode 'derived-mode-parent))) +;; FIXME doc (and function name) seems wrong. +;; Return a list of MODE and all its parent modes, if any. +;; Lists parent modes first. (defun mode-local-equivalent-mode-p (mode) "Is the major-mode in the current buffer equivalent to a mode in MODES." (let ((modes nil)) @@ -377,7 +380,7 @@ The current mode bindings are saved, BODY is evaluated, and the saved bindings are restored, even in case of an abnormal exit. Value is what BODY returns. -This lis like `with-mode-local-symbol', except that MODE is quoted +This is like `with-mode-local-symbol', except that MODE is quoted and is note evaluated." `(with-mode-local-symbol ',mode ,@body)) (put 'with-mode-local 'lisp-indent-function 1)