diff options
Diffstat (limited to 'lisp/mail/mailabbrev.el')
| -rw-r--r-- | lisp/mail/mailabbrev.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index 09afad7aa47..de4fe257f02 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el @@ -377,11 +377,11 @@ double-quotes." (setq result (cons (substring definition start end) result) start (and end (match-end 0))))) (setq definition - (mapconcat (function (lambda (x) + (mapconcat (lambda (x) (or (mail-resolve-all-aliases-1 - (intern-soft (downcase x) mail-abbrevs) - (cons sym so-far)) - x))) + (intern-soft (downcase x) mail-abbrevs) + (cons sym so-far)) + x)) (nreverse result) mail-alias-separator-string)) (set sym definition)))) @@ -436,12 +436,12 @@ of a mail alias. The value is set up, buffer-local, when first needed.") (_ (aref (standard-syntax-table) ?_)) (w (aref (standard-syntax-table) ?w))) (map-char-table - (function (lambda (key value) - (if (null value) - ;; Fetch the inherited value - (setq value (aref tab key))) - (if (equal value _) - (set-char-table-range tab key w)))) + (lambda (key value) + (if (null value) + ;; Fetch the inherited value + (setq value (aref tab key))) + (if (equal value _) + (set-char-table-range tab key w))) tab) (modify-syntax-entry ?@ "w" tab) (modify-syntax-entry ?% "w" tab) |