[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp bookmark.el ChangeLog
From: |
Karl Fogel |
Subject: |
[Emacs-diffs] emacs/lisp bookmark.el ChangeLog |
Date: |
Fri, 20 Nov 2009 21:12:59 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp bookmark.el ChangeLog,
Karl Fogel <=