diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-11-14 17:04:23 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-11-14 17:04:23 +0100 |
| commit | 61dca6e92ac972b832e889fbeab9b6131fc896fa (patch) | |
| tree | a6a23a0a9a7dd2f4951369dcd6d1f3c062306853 /lisp/vcursor.el | |
| parent | e71f5f1fd1fdeda52fda537ed3b45c8fcc435cac (diff) | |
| download | emacs-61dca6e92ac972b832e889fbeab9b6131fc896fa.tar.gz | |
Don't quote lambdas in several places
* lisp/align.el (align-highlight-rule):
* lisp/bookmark.el (bookmark-maybe-sort-alist):
* lisp/emacs-lisp/advice.el (ad-read-advice-name)
(ad-retrieve-args-form, ad-make-hook-form, defadvice)
(ad-with-originals):
* lisp/foldout.el (foldout-inhibit-key-bindings):
* lisp/gnus/gnus-bookmark.el (gnus-bookmark-maybe-sort-alist):
* lisp/mail/rfc822.el (rfc822-addresses-1):
* lisp/net/eudcb-ldap.el (eudc-ldap-cleanup-record-simple):
* lisp/net/net-utils.el (network-connection-to-service):
* lisp/net/socks.el (socks-build-auth-list):
* lisp/org/ox-odt.el (org-odt--image-size):
* lisp/pcomplete.el (pcomplete-command-completion-function)
(pcomplete-default-completion-function, pcomplete-opt):
* lisp/progmodes/cperl-mode.el (cperl-highlight-charclass)
(cperl-tags-hier-init, cperl-tags-treeify)
(cperl-next-interpolated-REx, cperl-time-fontification):
* lisp/shadowfile.el (shadow-copy-files, shadow-shadows-of-1)
(shadow-save-buffers-kill-emacs):
* lisp/strokes.el (strokes-renormalize-to-grid):
* lisp/tempo.el (tempo-insert, tempo-forward-mark)
(tempo-backward-mark):
* lisp/textmodes/artist.el (artist-submit-bug-report):
* lisp/textmodes/ispell.el (ispell-complete-word):
* lisp/url/url-auth.el (url-get-authentication):
* lisp/url/url-cache.el (url-cache-create-filename-human-readable):
* lisp/vcursor.el (vcursor-find-window):
* test/lisp/textmodes/reftex-tests.el
(reftex-parse-bibtex-entry-test): Don't quote lambdas.
Diffstat (limited to 'lisp/vcursor.el')
| -rw-r--r-- | lisp/vcursor.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/vcursor.el b/lisp/vcursor.el index 3601abcd6e4..e5e9f062a92 100644 --- a/lisp/vcursor.el +++ b/lisp/vcursor.el @@ -602,15 +602,14 @@ Set `vcursor-window' to the returned value as a side effect." (pos-visible-in-window-p (point) vcursor-window)) (progn (walk-windows - (function - (lambda (win) - (and (not winok) - (eq (current-buffer) (window-buffer win)) - (not (and not-this (eq thiswin win))) - (cond - ((pos-visible-in-window-p (point) win) (setq winok win)) - ((eq thiswin win)) - ((not winbuf) (setq winbuf win)))))) + (lambda (win) + (and (not winok) + (eq (current-buffer) (window-buffer win)) + (not (and not-this (eq thiswin win))) + (cond + ((pos-visible-in-window-p (point) win) (setq winok win)) + ((eq thiswin win)) + ((not winbuf) (setq winbuf win))))) nil (not this-frame)) (setq vcursor-window (cond |