monnier pushed a commit to branch master in repository elpa. commit 3575e8a01f8087850a6d762d59f44f45d66d17da Author: Teemu Likonen <tliko...@iki.fi> Date: Sat May 28 10:36:19 2011 +0000
Poistetaan turha #' lambda-rakenteiden edestä --- wcheck-mode.el | 42 +++++++++++++++++++++--------------------- 1 files changed, 21 insertions(+), 21 deletions(-) diff --git a/wcheck-mode.el b/wcheck-mode.el index 0156ce8..09b6700 100644 --- a/wcheck-mode.el +++ b/wcheck-mode.el @@ -920,12 +920,12 @@ marking strings in buffers." ;; Walk through all windows which belong to this buffer. (let (area-alist strings) - (walk-windows #'(lambda (window) - (when (eq buffer (window-buffer window)) - ;; Store the visible buffer area. - (push (cons (window-start window) - (window-end window t)) - area-alist))) + (walk-windows (lambda (window) + (when (eq buffer (window-buffer window)) + ;; Store the visible buffer area. + (push (cons (window-start window) + (window-end window t)) + area-alist))) 'nomb t) ;; Combine overlapping buffer areas and read strings from all @@ -1163,11 +1163,11 @@ scrolled." "`wcheck-mode' hook for window size change. Request update for the buffer when its window's size has changed." - (walk-windows #'(lambda (window) - (with-current-buffer (window-buffer window) - (when wcheck-mode - (wcheck-buffer-data-set (current-buffer) - :read-req t)))) + (walk-windows (lambda (window) + (with-current-buffer (window-buffer window) + (when wcheck-mode + (wcheck-buffer-data-set (current-buffer) + :read-req t)))) 'nomb frame)) @@ -1176,11 +1176,11 @@ changed." "`wcheck-mode' hook for window configuration change. Request update for the buffer when its window's configuration has changed." - (walk-windows #'(lambda (window) - (with-current-buffer (window-buffer window) - (when wcheck-mode - (wcheck-buffer-data-set (current-buffer) - :read-req t)))) + (walk-windows (lambda (window) + (with-current-buffer (window-buffer window) + (when wcheck-mode + (wcheck-buffer-data-set (current-buffer) + :read-req t)))) 'nomb 'currentframe)) @@ -1674,9 +1674,9 @@ originated this sequence of function calls. Return user's choice (a string) or nil." (let ((menu (list "Choose a substitute" (cons "" (if suggestions - (mapcar #'(lambda (item) - (cons (wcheck-clean-string item) - item)) + (mapcar (lambda (item) + (cons (wcheck-clean-string item) + item)) suggestions) (list "[No suggestions]")))))) (x-popup-menu event menu))) @@ -1977,8 +1977,8 @@ Each item denote a buffer position range from A to B. This function returns a new list which has items in increasing order according to A's and all overlapping A B ranges are combined." (let ((alist (sort (copy-tree alist) - #'(lambda (a b) - (< (car a) (car b))))) + (lambda (a b) + (< (car a) (car b))))) final previous) (while alist (while (not (equal previous alist))