Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 21:37:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(with-mode-local): Doc fix.

Browse source
This commit is contained in:
Glenn Morris 2009-11-03 03:22:30 +00:00
parent 2aea6521e3
commit df8fff6c8a
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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)

5
lisp/cedet/mode-local.el
View file

@ -70,6 +70,9 @@ Return nil if MODE has no parent."
(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 @@ To use the symbol MODE (quoted), use `with-mode-local'."
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)