diff options
| author | Sébastien Delafond <sdelafond@gmail.com> | 2015-11-27 17:40:16 +0100 |
|---|---|---|
| committer | Sébastien Delafond <sdelafond@gmail.com> | 2015-11-27 17:40:16 +0100 |
| commit | 09600666ecbbebe86830a937658465d046e13d06 (patch) | |
| tree | f8140dfdec0fdfc11323d6c491f7680673bcc0de /lisp/org-irc.el | |
| parent | 1be13d57dc8357576a8285c6dadc03db9e3ed7b0 (diff) | |
Imported Upstream version 8.3.2
Diffstat (limited to 'lisp/org-irc.el')
| -rw-r--r-- | lisp/org-irc.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-irc.el b/lisp/org-irc.el index 8f9761b..1ec69d8 100644 --- a/lisp/org-irc.el +++ b/lisp/org-irc.el @@ -1,6 +1,6 @@ ;;; org-irc.el --- Store links to IRC sessions ;; -;; Copyright (C) 2008-2014 Free Software Foundation, Inc. +;; Copyright (C) 2008-2015 Free Software Foundation, Inc. ;; ;; Author: Philip Jackson <emacs@shellarchive.co.uk> ;; Keywords: erc, irc, link, org @@ -108,7 +108,7 @@ attributes that are found." (defun org-irc-ellipsify-description (string &optional after) "Remove unnecessary white space from STRING and add ellipses if necessary. Strip starting and ending white space from STRING and replace any -chars that the value AFTER with '...'" +chars that the value AFTER with `...'" (let* ((after (number-to-string (or after 30))) (replace-map (list (cons "^[ \t]*" "") (cons "[ \t]*$" "") @@ -172,7 +172,7 @@ the session itself." (org-store-link-props :type "irc" :link (concat "irc:/" link-text) - :description (concat "irc session '" link-text "'") + :description (concat "irc session `" link-text "'") :server (car (car link)) :port (or (string-to-number (cadr (pop link))) erc-default-port) :nick (pop link)) |