]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix errors in 2011-05-29 change to Lisp manual.
authorChong Yidong <cyd@stupidchicken.com>
Tue, 14 Jun 2011 15:13:26 +0000 (11:13 -0400)
committerChong Yidong <cyd@stupidchicken.com>
Tue, 14 Jun 2011 15:13:26 +0000 (11:13 -0400)
* doc/lispref/keymaps.texi (Searching Keymaps):
* doc/lispref/display.texi (Overlay Properties): Fix errors in 2011-05-29
change.  Suggested by Johan Bockgård.

doc/lispref/ChangeLog
doc/lispref/display.texi
doc/lispref/keymaps.texi

index fd8a9945cf97df4b5100889bb5d981a7fd35a270..0178e91ba4f698900087ab75be426cae22e98736 100644 (file)
@@ -1,3 +1,9 @@
+2011-06-14  Chong Yidong  <cyd@stupidchicken.com>
+
+       * keymaps.texi (Searching Keymaps):
+       * display.texi (Overlay Properties): Fix errors in 2011-05-29
+       change.  Suggested by Johan Bockgård.
+
 2011-05-29  Chong Yidong  <cyd@stupidchicken.com>
 
        * help.texi (Accessing Documentation):
index 4a647ef15a2bfa77891c4c9bfe62be6f79be3bea..e8e9e38939dea8f851510432cab991887bb3263f 100644 (file)
@@ -1443,9 +1443,9 @@ specify a particular attribute for certain text.  @xref{Face
 Attributes}.
 
 @item
-A cons cell, either of the form @code{(fg-color . @var{color-name})}
-or @code{(bg-color . @var{color-name})}.  These elements specify just
-the foreground color or just the background color.
+A cons cell, of the form @code{(foreground-color . @var{color-name})}
+or @code{(background-color . @var{color-name})}.  These elements
+specify just the foreground color or just the background color.
 
 @code{(foreground-color . @var{color-name})} has the same effect as
 @code{(:foreground @var{color-name})}; likewise for the background.
index b1f02d6b26e7ea44c0708ca9d1af254c1093278e..5befa9136ddd4a63701e39b436e25523b7e5c3cc 100644 (file)
@@ -725,13 +725,13 @@ them:
       (@var{find-in} overriding-terminal-local-map))
      (overriding-local-map
       (@var{find-in} overriding-local-map))
-     (or (@var{find-in} (get-char-property (point) 'keymap))
-        (@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)
-            (@var{find-in} (get-char-property (point) 'local-map))
-          (@var{find-in} (current-local-map)))))
+     ((or (@var{find-in} (get-char-property (point) 'keymap))
+         (@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)
+             (@var{find-in} (get-char-property (point) 'local-map))
+           (@var{find-in} (current-local-map))))))
     (@var{find-in} (current-global-map)))
 @end lisp