diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-10-04 19:45:05 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-10-04 19:45:05 +0200 |
| commit | 44ef24342fd8a2ac876212124ebf38673acda35a (patch) | |
| tree | 793dc4ba4197559b4bc65339d713c0807a7b2ca9 /lisp/tempo.el | |
| parent | afb765ab3cab7b6582d0def543b23603cd076445 (diff) | |
| parent | d8665e6d3473403c90a0831e83439a013d0012d3 (diff) | |
| download | emacs-44ef24342fd8a2ac876212124ebf38673acda35a.tar.gz emacs-44ef24342fd8a2ac876212124ebf38673acda35a.tar.bz2 emacs-44ef24342fd8a2ac876212124ebf38673acda35a.zip | |
Merge remote-tracking branch 'savannah/master' into HEAD
Diffstat (limited to 'lisp/tempo.el')
| -rw-r--r-- | lisp/tempo.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/tempo.el b/lisp/tempo.el index bc398e7eb67..f6612354b1c 100644 --- a/lisp/tempo.el +++ b/lisp/tempo.el @@ -75,7 +75,7 @@ ;; ftp.lysator.liu.se in the directory /pub/emacs ;; There is also a WWW page at -;; http://www.lysator.liu.se/~davidk/elisp/ which has some information +;; https://www.lysator.liu.se/~davidk/elisp/ which has some information ;;; Known bugs: @@ -306,8 +306,8 @@ mode, ON-REGION is ignored and assumed true if the region is active." (goto-char tempo-region-start)) (save-excursion (tempo-insert-mark (point-marker)) - (mapc (function (lambda (elt) - (tempo-insert elt on-region))) + (mapc (lambda (elt) + (tempo-insert elt on-region)) (symbol-value template)) (tempo-insert-mark (point-marker))) (tempo-forward-mark)) @@ -449,9 +449,9 @@ never prompted." "Tries all the user-defined element handlers in `tempo-user-elements'." ;; Sigh... I need (some list) (catch 'found - (mapc (function (lambda (handler) - (let ((result (funcall handler element))) - (if result (throw 'found result))))) + (mapc (lambda (handler) + (let ((result (funcall handler element))) + (if result (throw 'found result)))) tempo-user-elements) (throw 'found nil))) @@ -542,7 +542,7 @@ and insert the results." ;;; tempo-forward-mark (defun tempo-forward-mark () - "Jump to the next mark in `tempo-forward-mark-list'." + "Jump to the next mark in `tempo-marks'." (interactive) (let ((next-mark (catch 'found (mapc @@ -560,7 +560,7 @@ and insert the results." ;;; tempo-backward-mark (defun tempo-backward-mark () - "Jump to the previous mark in `tempo-back-mark-list'." + "Jump to the previous mark in `tempo-marks'." (interactive) (let ((prev-mark (catch 'found (let (last) @@ -640,11 +640,11 @@ If `tempo-dirty-collection' is nil, the old collection is reused." tempo-collection) (setq tempo-collection (apply (function append) - (mapcar (function (lambda (tag-list) + (mapcar (lambda (tag-list) ; If the format for ; tempo-local-tags changes, ; change this - (eval (car tag-list)))) + (eval (car tag-list))) tempo-local-tags)))) (setq tempo-dirty-collection nil))) |