diff options
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/ispell.el | 28 | ||||
| -rw-r--r-- | lisp/textmodes/page-ext.el | 21 | ||||
| -rw-r--r-- | lisp/textmodes/refer.el | 6 |
3 files changed, 27 insertions, 28 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 3358cf1ba32..31b699cf501 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -2464,14 +2464,14 @@ SPC: Accept word this time. (progn (require 'ehelp) (with-electric-help - (function (lambda () - ;;This shouldn't be necessary: with-electric-help needs - ;; an optional argument telling it about the smallest - ;; acceptable window-height of the help buffer. - ;;(if (< (window-height) 15) - ;; (enlarge-window - ;; (- 15 (ispell-adjusted-window-height)))) - (princ "Selections are: + (lambda () + ;;This shouldn't be necessary: with-electric-help needs + ;; an optional argument telling it about the smallest + ;; acceptable window-height of the help buffer. + ;;(if (< (window-height) 15) + ;; (enlarge-window + ;; (- 15 (ispell-adjusted-window-height)))) + (princ "Selections are: DIGIT: Replace the word with a digit offered in the *Choices* buffer. SPC: Accept word this time. @@ -2491,7 +2491,7 @@ SPC: Accept word this time. `C-l': Redraw screen. `C-r': Recursive edit. `C-z': Suspend Emacs or iconify frame.") - nil)))) + nil))) (let ((help-1 (concat "[r/R]eplace word; [a/A]ccept for this session; " @@ -3274,15 +3274,15 @@ otherwise, the current line is skipped." Generated from `ispell-tex-skip-alists'." (concat ;; raw tex keys - (mapconcat (function (lambda (lst) (car lst))) + (mapconcat (lambda (lst) (car lst)) (car ispell-tex-skip-alists) "\\|") "\\|" ;; keys wrapped in begin{} - (mapconcat (function (lambda (lst) - (concat "\\\\begin[ \t\n]*{[ \t\n]*" - (car lst) - "[ \t\n]*}"))) + (mapconcat (lambda (lst) + (concat "\\\\begin[ \t\n]*{[ \t\n]*" + (car lst) + "[ \t\n]*}")) (car (cdr ispell-tex-skip-alists)) "\\|"))) diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el index c2b7b66b9f7..b357bbbbe97 100644 --- a/lisp/textmodes/page-ext.el +++ b/lisp/textmodes/page-ext.el @@ -429,20 +429,19 @@ REVERSE (non-nil means reverse order), BEG and END (region to sort)." ;; NEXTRECFUN is called with point at the end of the ;; previous record. It moves point to the start of the ;; next record. - (function (lambda () - (re-search-forward page-delimiter nil t) - (skip-chars-forward " \t\n") - )) + (lambda () + (re-search-forward page-delimiter nil t) + (skip-chars-forward " \t\n")) ;; ENDRECFUN is called with point within the record. ;; It should move point to the end of the record. - (function (lambda () - (if (re-search-forward - page-delimiter - nil - t) - (goto-char (match-beginning 0)) - (goto-char (point-max)))))))) + (lambda () + (if (re-search-forward + page-delimiter + nil + t) + (goto-char (match-beginning 0)) + (goto-char (point-max))))))) (define-obsolete-function-alias 'sort-pages-buffer #'pages-sort-buffer "27.1") (defun pages-sort-buffer (&optional reverse) diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el index c8fd0bea004..888c310b4a1 100644 --- a/lisp/textmodes/refer.el +++ b/lisp/textmodes/refer.el @@ -249,9 +249,9 @@ found on the last `refer-find-entry' or `refer-find-next-entry'." (forward-paragraph 1) (setq end (point)) (setq found - (refer-every (function (lambda (keyword) - (goto-char begin) - (re-search-forward keyword end t))) + (refer-every (lambda (keyword) + (goto-char begin) + (re-search-forward keyword end t)) keywords-list)) (if (not found) (progn |