emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/sesman 4f9aea1b6c 047/100: Keep sesman--format-session-obj


From: ELPA Syncer
Subject: [nongnu] elpa/sesman 4f9aea1b6c 047/100: Keep sesman--format-session-objects for minibuffer info only
Date: Tue, 28 Dec 2021 14:06:01 -0500 (EST)

branch: elpa/sesman
commit 4f9aea1b6c7c1b73d7151693703d367fde3c6ab1
Author: Vitalie Spinu <spinuvit@gmail.com>
Commit: Vitalie Spinu <spinuvit@gmail.com>

    Keep sesman--format-session-objects for minibuffer info only
---
 sesman.el | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/sesman.el b/sesman.el
index 88005f7a33..1215061c84 100644
--- a/sesman.el
+++ b/sesman.el
@@ -231,18 +231,12 @@ If SORT is non-nil, sort in relevance order."
     (if (and (listp info)
              (keywordp (car info)))
         (let ((ses-name (car session))
-              (indent (or indent 0))
               (sep (or sep " "))
-              (map (plist-get info :map))
               (strings (or (plist-get info :strings)
                            (mapcar (lambda (x) (format "%s" x))
                                    (plist-get info :objects)))))
           (mapconcat (lambda (str)
-                       (let ((str (replace-regexp-in-string ses-name "%%s" str 
nil t)))
-                         (propertize str
-                                     'mouse-face 'highlight
-                                     'help-echo "mouse-2: visit this file in 
other window"
-                                     'keymap map)))
+                       (replace-regexp-in-string ses-name "%%s" str nil t))
                      strings sep))
       (format "%s" info))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]