diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-10-09 18:00:46 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-10-09 18:00:46 +0200 |
commit | 3b3664937bbee7434198e9cb4eb532dc1178cb50 (patch) | |
tree | 3b1dd187a74c9dde1210d1fd1194782d387aedd1 | |
parent | 4910ffdf627a2d048a1c001e4456afe8770a843d (diff) |
Fix mode-line error when no bookmarks present in buffer (#1207).
* helm-bookmark.el (helm-source-bookmark-set):
Use a dummy candidate.
-rw-r--r-- | helm-bookmark.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/helm-bookmark.el b/helm-bookmark.el index 8cb147f8..bd65eff0 100644 --- a/helm-bookmark.el +++ b/helm-bookmark.el @@ -224,7 +224,16 @@ ;;; bookmark-set ;; (defvar helm-source-bookmark-set - (helm-build-dummy-source "Set Bookmark" :action 'bookmark-set) + (helm-build-dummy-source "Set Bookmark" + :filtered-candidate-transformer + (lambda (_candidates _source) + (list (or (and (not (string= helm-pattern "")) + helm-pattern) + "Enter a bookmark name to record"))) + :action '(("Set bookmark" . (lambda (candidate) + (if (string= helm-pattern "") + (message "No bookmark name given for record") + (bookmark-set candidate)))))) "See (info \"(emacs)Bookmarks\").") |