Trailing whitespace deleted.

[bpt/emacs.git] / lispref / keymaps.texi

diff --git a/lispref/keymaps.texi b/lispref/keymaps.texi
index be23179..e5adfb0 100644 (file)
--- a/lispref/keymaps.texi
+++ b/lispref/keymaps.texi
@@ -1,7 +1,7 @@
 @c -*-texinfo-*-
 @c This is part of the GNU Emacs Lisp Reference Manual.
 @c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1998, 1999, 2000
 @c -*-texinfo-*-
 @c This is part of the GNU Emacs Lisp Reference Manual.
 @c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1998, 1999, 2000

-@c   Free Software Foundation, Inc. 
+@c   Free Software Foundation, Inc.

 @c See the file elisp.texi for copying conditions.
 @setfilename ../info/keymaps
 @node Keymaps, Modes, Command Loop, Top
 @c See the file elisp.texi for copying conditions.
 @setfilename ../info/keymaps
 @node Keymaps, Modes, Command Loop, Top


@@ -175,28 +175,28 @@ C-l}, @kbd{M-C-q}, and @kbd{M-C-x}.
 @example
 @group
 lisp-mode-map
 @example
 @group
 lisp-mode-map

-@result{} 
+@result{}

 @end group
 @group
 @end group
 @group

-(keymap 
+(keymap

  ;; @key{TAB}
  ;; @key{TAB}

- (9 . lisp-indent-line)                 
+ (9 . lisp-indent-line)

 @end group
 @group
  ;; @key{DEL}
 @end group
 @group
  ;; @key{DEL}

- (127 . backward-delete-char-untabify)  
+ (127 . backward-delete-char-untabify)

 @end group
 @group
 @end group
 @group

- (3 keymap 
+ (3 keymap

     ;; @kbd{C-c C-l}
     ;; @kbd{C-c C-l}

-    (12 . run-lisp))                    
+    (12 . run-lisp))

 @end group
 @group
 @end group
 @group

- (27 keymap 
+ (27 keymap

      ;; @r{@kbd{M-C-q}, treated as @kbd{@key{ESC} C-q}}
      ;; @r{@kbd{M-C-q}, treated as @kbd{@key{ESC} C-q}}

-     (17 . indent-sexp)                 
+     (17 . indent-sexp)

      ;; @r{@kbd{M-C-x}, treated as @kbd{@key{ESC} C-x}}
      ;; @r{@kbd{M-C-x}, treated as @kbd{@key{ESC} C-x}}

-     (24 . lisp-send-defun)))           
+     (24 . lisp-send-defun)))

 @end group
 @end example
 
 @end group
 @end example
 


@@ -280,7 +280,7 @@ definition is a keymap; the same symbol appears in the new copy.
 @end group
 @group
      ;; @r{(This implements meta characters.)}
 @end group
 @group
      ;; @r{(This implements meta characters.)}

-     (27 keymap         
+     (27 keymap

          (83 . center-paragraph)
          (115 . center-line))
      (9 . tab-to-tab-stop))
          (83 . center-paragraph)
          (115 . center-line))
      (9 . tab-to-tab-stop))


@@ -529,7 +529,7 @@ certain parts of the buffer; see @ref{Special Properties}.
 when the minor mode is enabled.
 
   The variable @code{overriding-local-map}, if non-@code{nil}, specifies
 when the minor mode is enabled.
 
   The variable @code{overriding-local-map}, if non-@code{nil}, specifies

-another local keymap that overrides the buffer's local map and all the 
+another local keymap that overrides the buffer's local map and all the

 minor mode keymaps.
 
   All the active keymaps are used together to determine what command to
 minor mode keymaps.
 
   All the active keymaps are used together to determine what command to


@@ -584,7 +584,7 @@ other.
 @example
 @group
 (current-global-map)
 @example
 @group
 (current-global-map)

-@result{} (keymap [set-mark-command beginning-of-line @dots{} 
+@result{} (keymap [set-mark-command beginning-of-line @dots{}

             delete-backward-char])
 @end group
 @end example
             delete-backward-char])
 @end group
 @end example


@@ -600,14 +600,14 @@ keymap.
 @example
 @group
 (current-local-map)
 @example
 @group
 (current-local-map)

-@result{} (keymap 
-    (10 . eval-print-last-sexp) 
-    (9 . lisp-indent-line) 
-    (127 . backward-delete-char-untabify) 
+@result{} (keymap
+    (10 . eval-print-last-sexp)
+    (9 . lisp-indent-line)
+    (127 . backward-delete-char-untabify)

 @end group
 @group
 @end group
 @group

-    (27 keymap 
-        (24 . eval-defun) 
+    (27 keymap
+        (24 . eval-defun)

         (17 . indent-sexp)))
 @end group
 @end example
         (17 . indent-sexp)))
 @end group
 @end example


@@ -1004,7 +1004,7 @@ meta-prefix-char                    ; @r{The default value.}
 @end group
 @group
 (setq meta-prefix-char 24)
 @end group
 @group
 (setq meta-prefix-char 24)

-     @result{} 24      
+     @result{} 24

 @end group
 @group
 (key-binding "\M-b")
 @end group
 @group
 (key-binding "\M-b")


@@ -1111,7 +1111,7 @@ map
 @end group
 @group
 map
 @end group
 @group
 map

-@result{} (keymap 
+@result{} (keymap

     (24 keymap                ; @kbd{C-x}
         (102 . forward-word)) ;      @kbd{f}
     (6 . forward-char))       ; @kbd{C-f}
     (24 keymap                ; @kbd{C-x}
         (102 . forward-word)) ;      @kbd{f}
     (6 . forward-char))       ; @kbd{C-f}


@@ -1121,7 +1121,7 @@ map
 ;; @r{Bind @kbd{C-p} to the @code{ctl-x-map}.}
 (define-key map "\C-p" ctl-x-map)
 ;; @code{ctl-x-map}
 ;; @r{Bind @kbd{C-p} to the @code{ctl-x-map}.}
 (define-key map "\C-p" ctl-x-map)
 ;; @code{ctl-x-map}

-@result{} [nil @dots{} find-file @dots{} backward-kill-sentence] 
+@result{} [nil @dots{} find-file @dots{} backward-kill-sentence]

 @end group
 
 @group
 @end group
 
 @group


@@ -1133,7 +1133,7 @@ map
 map
 @result{} (keymap     ; @r{Note @code{foo} in @code{ctl-x-map}.}
     (16 keymap [nil @dots{} foo @dots{} backward-kill-sentence])
 map
 @result{} (keymap     ; @r{Note @code{foo} in @code{ctl-x-map}.}
     (16 keymap [nil @dots{} foo @dots{} backward-kill-sentence])

-    (24 keymap 
+    (24 keymap

         (102 . forward-word))
     (6 . forward-char))
 @end group
         (102 . forward-word))
     (6 . forward-char))
 @end group


@@ -1157,7 +1157,7 @@ standard bindings:
 
 @smallexample
 @group
 
 @smallexample
 @group

-(substitute-key-definition 
+(substitute-key-definition

  'find-file 'find-file-read-only (current-global-map))
 @end group
 @end smallexample
  'find-file 'find-file-read-only (current-global-map))
 @end group
 @end smallexample


@@ -1190,9 +1190,9 @@ Here is an example showing a keymap before and after substitution:
 
 @smallexample
 @group
 
 @smallexample
 @group

-(setq map '(keymap 
-            (?1 . olddef-1) 
-            (?2 . olddef-2) 
+(setq map '(keymap
+            (?1 . olddef-1)
+            (?2 . olddef-2)

             (?3 . olddef-1)))
 @result{} (keymap (49 . olddef-1) (50 . olddef-2) (51 . olddef-1))
 @end group
             (?3 . olddef-1)))
 @result{} (keymap (49 . olddef-1) (50 . olddef-2) (51 . olddef-1))
 @end group


@@ -1220,8 +1220,8 @@ digits to run @code{digit-argument}, and @kbd{-} to run
 @code{negative-argument}.  Otherwise it makes them undefined like the
 rest of the printing characters.
 
 @code{negative-argument}.  Otherwise it makes them undefined like the
 rest of the printing characters.
 

-@cindex yank suppression 
-@cindex @code{quoted-insert} suppression 
+@cindex yank suppression
+@cindex @code{quoted-insert} suppression

 The @code{suppress-keymap} function does not make it impossible to
 modify a buffer, as it does not suppress commands such as @code{yank}
 and @code{quoted-insert}.  To prevent any modification of a buffer, make
 The @code{suppress-keymap} function does not make it impossible to
 modify a buffer, as it does not suppress commands such as @code{yank}
 and @code{quoted-insert}.  To prevent any modification of a buffer, make


@@ -1423,7 +1423,7 @@ definition is the sparse keymap @code{(keymap (83 .@: center-paragraph)
 @smallexample
 @group
 (accessible-keymaps (current-local-map))
 @smallexample
 @group
 (accessible-keymaps (current-local-map))

-@result{}(("" keymap 
+@result{}(("" keymap

       (27 keymap   ; @r{Note this keymap for @key{ESC} is repeated below.}
           (83 . center-paragraph)
           (115 . center-line))
       (27 keymap   ; @r{Note this keymap for @key{ESC} is repeated below.}
           (83 . center-paragraph)
           (115 . center-line))


@@ -1431,8 +1431,8 @@ definition is the sparse keymap @code{(keymap (83 .@: center-paragraph)
 @end group
 
 @group
 @end group
 
 @group

-   ("^[" keymap 
-    (83 . center-paragraph) 
+   ("^[" keymap
+    (83 . center-paragraph)

     (115 . foo)))
 @end group
 @end smallexample
     (115 . foo)))
 @end group
 @end smallexample


@@ -1447,7 +1447,7 @@ of a window.
 @smallexample
 @group
 (accessible-keymaps (current-global-map))
 @smallexample
 @group
 (accessible-keymaps (current-global-map))

-@result{} (("" keymap [set-mark-command beginning-of-line @dots{} 
+@result{} (("" keymap [set-mark-command beginning-of-line @dots{}

                    delete-backward-char])
 @end group
 @group
                    delete-backward-char])
 @end group
 @group


@@ -2240,7 +2240,7 @@ property list elements to add to the menu item specification.
 To define items in some local map, bind @code{`tool-bar-map} with
 @code{let} around calls of this function:
 @example
 To define items in some local map, bind @code{`tool-bar-map} with
 @code{let} around calls of this function:
 @example

-(defvar foo-tool-bar-map 
+(defvar foo-tool-bar-map

   (let ((tool-bar-map (make-sparse-keymap)))
     (tool-bar-add-item @dots{})
     @dots{}
   (let ((tool-bar-map (make-sparse-keymap)))
     (tool-bar-add-item @dots{})
     @dots{}