diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-21 22:45:08 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-21 22:45:08 +0200 |
commit | b2835f3b8f77fdf34a28eb99f91c7c601f1e8631 (patch) | |
tree | 60029c359ec9b1e73e521c2d1a334b08e8d51e68 | |
parent | 8d87417111cf0589515e7cdd9b622833beef8164 (diff) | |
download | org-mode-b2835f3b8f77fdf34a28eb99f91c7c601f1e8631.tar.gz |
org-irc: Use lexical binding
* lisp/org-irc.el (org-irc-ellipsify-description): Replace `mapc' +
`lambda' with `dolist'.
-rw-r--r-- | lisp/org-irc.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/org-irc.el b/lisp/org-irc.el index 333c4b1..be9a33d 100644 --- a/lisp/org-irc.el +++ b/lisp/org-irc.el @@ -1,4 +1,4 @@ -;;; org-irc.el --- Store links to IRC sessions +;;; org-irc.el --- Store Links to IRC Sessions -*- lexical-binding: t; -*- ;; ;; Copyright (C) 2008-2016 Free Software Foundation, Inc. ;; @@ -114,11 +114,9 @@ chars that the value AFTER with `...'" (cons "[ \t]*$" "") (cons (concat "^\\(.\\{" after "\\}\\).*") "\\1...")))) - (mapc (lambda (x) - (when (string-match (car x) string) - (setq string (replace-match (cdr x) nil nil string)))) - replace-map) - string)) + (dolist (x replace-map string) + (when (string-match (car x) string) + (setq string (replace-match (cdr x) nil nil string)))))) ;; ERC specific functions |