[Emacs-diffs] emacs/lisp bookmark.el ChangeLog

[Karl Fogel]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Karl Fogel <kfogel>     09/11/20 21:12:58

Modified files:
        lisp           : bookmark.el ChangeLog 

Log message:
        * lisp/bookmark.el: Formatting and doc fixes only:
          (bookmark-search-delay): Shorten doc string to fit in 80 columns.
          (bookmark-bmenu-search): Wrap to fit within 80 columns.  Minor
            grammar and punctuation fixes in doc string.
          (bookmark-read-search-input): Adjust to fit within 80 columns.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/bookmark.el?cvsroot=emacs&r1=1.142&r2=1.143
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16690&r2=1.16691

Patches:
Index: bookmark.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/bookmark.el,v
retrieving revision 1.142
retrieving revision 1.143
diff -u -b -r1.142 -r1.143
--- bookmark.el 20 Nov 2009 15:47:31 -0000      1.142
+++ bookmark.el 20 Nov 2009 21:12:54 -0000      1.143
@@ -198,7 +198,7 @@
 
 
 (defcustom bookmark-search-delay 0.2
-  "*Display when searching bookmarks is updated all `bookmark-search-delay' 
seconds."
+  "*When searching bookmarks, redisplay every `bookmark-search-delay' seconds."
   :group 'bookmark
   :type  'integer)
 
@@ -2102,7 +2102,8 @@
 (defun bookmark-read-search-input ()
   "Read each keyboard input and add it to `bookmark-search-pattern'."
   (setq bookmark-search-pattern "")    ; Always reset pattern to empty string
-  (let ((prompt       (propertize bookmark-search-prompt 'face '((:foreground 
"cyan"))))
+  (let ((prompt       (propertize bookmark-search-prompt
+                                  'face '((:foreground "cyan"))))
         (inhibit-quit t)
         (tmp-list     ())
         char)
@@ -2113,14 +2114,17 @@
               (setq char (read-char (concat prompt bookmark-search-pattern)))
             (error (throw 'break nil)))
           (case char
-            ((or ?\e ?\r) (throw 'break nil))    ; RET or ESC break search 
loop and lead to [1].
-            (?\d (pop tmp-list)         ; Delete last char of 
`bookmark-search-pattern' with DEL
-                 (setq bookmark-search-pattern (mapconcat 'identity (reverse 
tmp-list) ""))
+            ((or ?\e ?\r) ; RET or ESC break search loop and lead to [1].
+             (throw 'break nil)) 
+            (?\d (pop tmp-list) ; Delete last char of `bookmark-search-pattern'
+                 (setq bookmark-search-pattern
+                       (mapconcat 'identity (reverse tmp-list) ""))
                  (throw 'continue nil))
             (?\C-g (setq bookmark-quit-flag t) (throw 'break nil))
             (t
              (push (text-char-description char) tmp-list)
-             (setq bookmark-search-pattern (mapconcat 'identity (reverse 
tmp-list) ""))
+             (setq bookmark-search-pattern
+                   (mapconcat 'identity (reverse tmp-list) ""))
              (throw 'continue nil))))))))
 
 
@@ -2138,17 +2142,20 @@
 
 ;;;###autoload
 (defun bookmark-bmenu-search ()
-  "Incremental search of bookmarks matching `bookmark-search-pattern'.
-`bookmark-search-pattern' is build incrementally with 
`bookmark-read-search-input'"
+  "Incrementally search bookmarks matching `bookmark-search-pattern'.
+`bookmark-search-pattern' is built incrementally with
+`bookmark-read-search-input'."
   (interactive)
   (when (string= (buffer-name (current-buffer)) "*Bookmark List*")
     (let ((bmk (bookmark-bmenu-bookmark)))
       (unwind-protect
            (progn
              (setq bookmark-search-timer
-                   (run-with-idle-timer bookmark-search-delay 'repeat
+                   (run-with-idle-timer
+                    bookmark-search-delay 'repeat
                                         #'(lambda ()
-                                            
(bookmark-bmenu-filter-alist-by-regexp bookmark-search-pattern))))
+                        (bookmark-bmenu-filter-alist-by-regexp
+                         bookmark-search-pattern))))
              (bookmark-read-search-input))
         (progn ; [1] Stop timer.
           (bookmark-bmenu-cancel-search)

Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16690
retrieving revision 1.16691
diff -u -b -r1.16690 -r1.16691
--- ChangeLog   20 Nov 2009 18:09:29 -0000      1.16690
+++ ChangeLog   20 Nov 2009 21:12:55 -0000      1.16691
@@ -1,3 +1,11 @@
+2009-11-20  Karl Fogel  <address@hidden>
+
+       * bookmark.el Formatting and doc fixes only:
+       (bookmark-search-delay): Shorten doc string to fit in 80 columns.
+       (bookmark-bmenu-search): Wrap to fit within 80 columns.
+         Minor grammar and punctuation fixes in doc string.
+       (bookmark-read-search-input): Adjust to fit within 80 columns.
+
 2009-11-20  Tassilo Horn  <address@hidden>
 
        * progmodes/cc-cmds.el (c-forward-into-nomenclature)