diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-09-30 16:18:50 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-10-01 15:28:14 +0200 |
| commit | b03f74e0f2a578b1580e8b1c368665850ee7f808 (patch) | |
| tree | 00b9bce0235ef63bf6d93cc0eacaa4162f03c543 /lisp/term.el | |
| parent | 6cbc253aa0580e2f242551500764bba9780e669d (diff) | |
| download | emacs-b03f74e0f2a578b1580e8b1c368665850ee7f808.tar.gz emacs-b03f74e0f2a578b1580e8b1c368665850ee7f808.tar.bz2 emacs-b03f74e0f2a578b1580e8b1c368665850ee7f808.zip | |
Don't quote lambdas in several places
* admin/find-gc.el (find-gc-unsafe):
* lisp/align.el (align-rules-list):
* lisp/comint.el (comint-arguments):
* lisp/double.el (isearch-mode-map):
* lisp/ehelp.el (electric-help-command-loop):
* lisp/emacs-lisp/cl-macs.el (cl-defstruct):
* lisp/emulation/cua-rect.el (cua--copy-rectangle-as-kill)
(cua-copy-rectangle-as-text):
* lisp/eshell/esh-var.el (eshell-parse-variable-ref):
* lisp/hexl.el (hexl-insert-multibyte-char):
* lisp/international/titdic-cnv.el (tsang-quick-converter)
(ziranma-converter):
* lisp/language/tibet-util.el (tibetan-decompose-precomposition-alist):
* lisp/mail/mailalias.el (mail-get-names):
* lisp/mh-e/mh-e.el (mh-auto-fields-list, mh-identity-default):
* lisp/mouse.el (mouse-buffer-menu-map, mouse-buffer-menu-alist):
* lisp/play/gametree.el (gametree-make-heading-function):
* lisp/shell.el (shell--command-completion-data):
* lisp/talk.el (talk-update-buffers):
* lisp/tempo.el (tempo-insert-template, tempo-is-user-element)
(tempo-build-collection):
* lisp/term.el (term-input-filter, term-pager-help):
* lisp/textmodes/table.el (table-delete-column):
* lisp/url/url-cache.el (url-cache-create-filename-human-readable):
* lisp/textmodes/tex-mode.el (latex-imenu-create-index): Don't quote
lambdas.
Diffstat (limited to 'lisp/term.el')
| -rw-r--r-- | lisp/term.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/term.el b/lisp/term.el index 69681f706c0..ff8b3f00f34 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -554,7 +554,7 @@ See also `term-dynamic-complete'. This is a good thing to set in mode hooks.") (defvar term-input-filter - (function (lambda (str) (not (string-match "\\`\\s *\\'" str)))) + (lambda (str) (not (string-match "\\`\\s *\\'" str))) "Predicate for filtering additions to input history. Only inputs answering true to this function are saved on the input history list. Default is to save anything that isn't all whitespace.") @@ -3640,8 +3640,8 @@ The top-most line is line 0." (message "Terminal-emulator pager break help...") (sit-for 0) (with-electric-help - (function (lambda () - (princ (substitute-command-keys + (lambda () + (princ (substitute-command-keys "\\<term-pager-break-map>\ Terminal-emulator MORE break.\n\ Type one of the following keys:\n\n\ @@ -3659,7 +3659,7 @@ Type one of the following keys:\n\n\ Any other key is passed through to the program running under the terminal emulator and disables pager processing until all pending output has been dealt with.")) - nil)))) + nil))) (defun term-pager-continue (new-count) (let ((process (get-buffer-process (current-buffer)))) |