branch: elpa/sesman
commit 4f9aea1b6c7c1b73d7151693703d367fde3c6ab1
Author: Vitalie Spinu <spinu...@gmail.com>
Commit: Vitalie Spinu <spinu...@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))))
