From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 5 May 2006 12:27:06 +0000 (+0000)
Subject: (Active Keymaps): Fix pseudo-Lisp syntax.
X-Git-Tag: emacs-pretest-22.0.90~2798
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e98a14ffeb69fbbca82050368edcea2fa0be4f58;p=emacs.git

(Active Keymaps): Fix pseudo-Lisp syntax.
(Searching Keymaps): Fix pseudo-Lisp description of keymap search.
---

diff --git a/lispref/keymaps.texi b/lispref/keymaps.texi
index b1e2f7fbaea..39a57eddf13 100644
--- a/lispref/keymaps.texi
+++ b/lispref/keymaps.texi
@@ -561,7 +561,7 @@ pseudo-Lisp description of how this process works:
             (@var{find-in-any} emulation-mode-map-alists)
             (@var{find-in-any} minor-mode-overriding-map-alist)
             (@var{find-in-any} minor-mode-map-alist)
-            (if (get-text-property (point) 'local-map))
+            (if (get-text-property (point) 'local-map)
                 (@var{find-in} (get-text-property (point) 'local-map))
               (@var{find-in} (current-local-map))))))
     (@var{find-in} (current-global-map)))
@@ -670,14 +670,15 @@ description of the order in which the active keymaps are searched:
             (@var{find-in-any} emulation-mode-map-alists)
             (@var{find-in-any} minor-mode-overriding-map-alist)
             (@var{find-in-any} minor-mode-map-alist)
-            (@var{find-in} (get-text-property (point) 'local-map))
-            (@var{find-in} (current-local-map)))))
+            (if (get-text-property (point) 'local-map)
+                (@var{find-in} (get-text-property (point) 'local-map))
+              (@var{find-in} (current-local-map))))))
     (@var{find-in} (current-global-map)))
 @end lisp
 
 @noindent
 The @var{find-in} and @var{find-in-any} are pseudo functions that
-searches in one keymap respectively an alist of keymaps.
+search in one keymap and in an alist of keymaps, respectively.
 
 @enumerate
 @item