diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-08 10:11:22 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-08 10:11:22 -0500 |
| commit | dc083ebc4e34158b3be4c16d558d104c8c4e5c77 (patch) | |
| tree | bb4203c208a59598fd1b8d5e77f8a586e3d05b19 /lisp/net/sieve-mode.el | |
| parent | b4bfdd3999841dcdd779a48316b5cdb9b4f61209 (diff) | |
| download | emacs-dc083ebc4e34158b3be4c16d558d104c8c4e5c77.tar.gz emacs-dc083ebc4e34158b3be4c16d558d104c8c4e5c77.tar.bz2 emacs-dc083ebc4e34158b3be4c16d558d104c8c4e5c77.zip | |
* lisp/net/*.el: Use lexical-binding
Also remove some redundant `:group` arguments.
* lisp/net/eudc-export.el: Use lexical-binding.
(eudc-create-bbdb-record): Use `cl-progv` and `apply` to avoid `eval`.
* lisp/net/eudc-hotlist.el: Use lexical-binding.
* lisp/net/eudc.el (eudc-print-attribute-value): Use `funcall` to avoid
`eval`.
* lisp/net/eudcb-bbdb.el: Use lexical-binding.
(eudc-bbdb-filter-non-matching-record): Use `funcall` to avoid `eval`.
Move `bbdb-val` binding to avoid `setq`.
Use `seq-some` instead of `eval+or`.
(eudc-bbdb-format-record-as-result): Use `dolist` and `pcase`.
Use `funcall` to avoid `eval`.
(eudc-bbdb-query-internal): Simplify a bit.
* lisp/net/eudcb-ldap.el: Use lexical-binding.
(eudc-ldap-get-host-parameter): Use `defalias` to avoid `eval-and-compile`.
* lisp/net/telnet.el: Use lexical-binding.
* lisp/net/quickurl.el: Use lexical-binding.
* lisp/net/newst-ticker.el: Use lexical-binding.
* lisp/net/newst-reader.el: Use lexical-binding.
* lisp/net/goto-addr.el: Use lexical-binding.
* lisp/net/gnutls.el: Use lexical-binding.
* lisp/net/eudcb-macos-contacts.el: Use lexical-binding.
* lisp/net/eudcb-mab.el: Use lexical-binding.
* lisp/net/net-utils.el: Use lexical-binding.
(finger): Remove unused var `found`.
* lisp/net/network-stream.el (open-protocol-stream): Remove redundant
`defalias`.
* lisp/net/newst-plainview.el: Use lexical-binding.
(newsticker-hide-entry, newsticker-show-entry): Remove unused var
`is-invisible`.
(w3m-fill-column, w3-maximum-line-length): Declare vars.
* lisp/net/tramp.el (tramp-compute-multi-hops):
* lisp/net/tramp-compat.el (tramp-compat-temporary-file-directory):
* lisp/net/tramp-cmds.el (tramp-default-rename-file):
* lisp/net/webjump.el (webjump): Don't forget lexical-binding for `eval`.
Diffstat (limited to 'lisp/net/sieve-mode.el')
| -rw-r--r-- | lisp/net/sieve-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/net/sieve-mode.el b/lisp/net/sieve-mode.el index 7bc1d16122d..966f0f056bd 100644 --- a/lisp/net/sieve-mode.el +++ b/lisp/net/sieve-mode.el @@ -139,9 +139,9 @@ (defvar sieve-mode-map (let ((map (make-sparse-keymap))) - (define-key map "\C-c\C-l" 'sieve-upload) - (define-key map "\C-c\C-c" 'sieve-upload-and-kill) - (define-key map "\C-c\C-m" 'sieve-manage) + (define-key map "\C-c\C-l" #'sieve-upload) + (define-key map "\C-c\C-c" #'sieve-upload-and-kill) + (define-key map "\C-c\C-m" #'sieve-manage) map) "Key map used in sieve mode.") |