(with-mode-local): Doc fix.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3cb2bfc0f6..56a62adb847 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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)
diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el
index 62e8c89a0bd..c862faaef63 100644
--- a/lisp/cedet/mode-local.el
+++ b/lisp/cedet/mode-local.el
@@ -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)