# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1257218550 0
# Node ID c214e49d9cc33b415c1cc43b8be7b70527c7776e
# Parent  56392d7b0ff4829fd1dd83cde4abbcab7f028a2c
(with-mode-local): Doc fix.

diff -r 56392d7b0ff4 -r c214e49d9cc3 lisp/ChangeLog
--- 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)
diff -r 56392d7b0ff4 -r c214e49d9cc3 lisp/cedet/mode-local.el
--- 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)