TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix display of recent bookmarks without filename

This commit is contained in:
Igor Avdeev 2016-02-14 19:09:16 +03:00 committed by syl20bnr
parent 552fb1e1a6
commit 0e416290c4
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
core/core-spacemacs-buffer.el
View File

@ -577,15 +577,18 @@ border."
(insert list-display-name)
(mapc (lambda (el)
(insert "\n ")
(widget-create 'push-button
:action `(lambda (&rest ignore) (bookmark-jump ,el))
:mouse-face 'highlight
:follow-link "\C-m"
:button-prefix ""
:button-suffix ""
:format "%[%t%]"
(format "%s - %s" el (abbreviate-file-name
(bookmark-get-filename el)))))
(let ((filename (bookmark-get-filename el)))
(widget-create 'push-button
:action `(lambda (&rest ignore) (bookmark-jump ,el))
:mouse-face 'highlight
:follow-link "\C-m"
:button-prefix ""
:button-suffix ""
:format "%[%t%]"
(if filename
(format "%s - %s"
el (abbreviate-file-name filename))
(format "%s" el)))))
list)))
(defun spacemacs-buffer//get-org-items (types)