summaryrefslogtreecommitdiff
path: root/lisp/bookmark.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2012-10-26 13:20:54 -0400
committerStefan Monnier <monnier@iro.umontreal.ca>2012-10-26 13:20:54 -0400
commit372212dff2e3d84c676dc78ff27d7a0b5ec710de (patch)
tree7b21bbc0fead975533b54fc4b0386e267a1ac788 /lisp/bookmark.el
parentc577256946cde9d0558a4395cc15cf6a0119adce (diff)
downloademacs-372212dff2e3d84c676dc78ff27d7a0b5ec710de.tar.gz
* lisp/bookmark.el (bookmark-completing-read): Set the completion category
to `bookmark'. Fixes: debbugs:11131
Diffstat (limited to 'lisp/bookmark.el')
-rw-r--r--lisp/bookmark.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 838e5a5ec00..78ca6f22c8e 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -433,7 +433,11 @@ the empty string."
": ")))
(str
(completing-read prompt
- bookmark-alist
+ (lambda (string pred action)
+ (if (eq action 'metadata)
+ '(metadata (category . bookmark))
+ (complete-with-action
+ action bookmark-alist string pred)))
nil
0
nil