diff options
author | Mattias EngdegÄrd <mattiase@acm.org> | 2023-04-10 15:20:27 +0200 |
---|---|---|
committer | Mattias EngdegÄrd <mattiase@acm.org> | 2023-04-10 15:20:27 +0200 |
commit | cb4f4dd89131e5a8956c788fee7ede65f13b2a69 (patch) | |
tree | 4f7defa3708cae5a444f2e49f7f28af1b97f96a2 /lisp/progmodes/make-mode.el | |
parent | 119a7dd22084fe20da7b2fddd41a63870da89bda (diff) | |
download | emacs-cb4f4dd89131e5a8956c788fee7ede65f13b2a69.tar.gz |
Don't use `mapconcat` for effect
* lisp/progmodes/make-mode.el (makefile-browser-fill):
* lisp/url/url-mailto.el (url-mailto):
Use `mapc` instead of `mapconcat`.
Diffstat (limited to 'lisp/progmodes/make-mode.el')
-rw-r--r-- | lisp/progmodes/make-mode.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el index 087974bd1f0..5ea03b9e852 100644 --- a/lisp/progmodes/make-mode.el +++ b/lisp/progmodes/make-mode.el @@ -1326,14 +1326,12 @@ Fill comments, backslashed lines, and variable definitions specially." (let ((inhibit-read-only t)) (goto-char (point-min)) (erase-buffer) - (mapconcat + (mapc (lambda (item) (insert (makefile-browser-format-target-line (car item) nil) "\n")) - targets - "") - (mapconcat + targets) + (mapc (lambda (item) (insert (makefile-browser-format-macro-line (car item) nil) "\n")) - macros - "") + macros) (sort-lines nil (point-min) (point-max)) (goto-char (1- (point-max))) (delete-char 1) ; remove unnecessary newline at eob |