From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 26 Oct 2012 17:20:54 +0000 (-0400)
Subject: * lisp/bookmark.el (bookmark-completing-read): Set the completion category
X-Git-Tag: emacs-24.2.90~209^2~60
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=372212dff2e3d84c676dc78ff27d7a0b5ec710de;p=emacs.git

* lisp/bookmark.el (bookmark-completing-read): Set the completion category
to `bookmark'.

Fixes: debbugs:11131
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bda9ac0d4aa..c43b0c136e3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-26  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* bookmark.el (bookmark-completing-read): Set the completion category
+	to `bookmark' (bug#11131).
+
 2012-10-26  Bastien  <bzg@altern.org>
             Stefan Monnier  <monnier@iro.umontreal.ca>
 
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