Mercurial > hg > xemacs-beta

comparison lisp/packages/bookmark.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 28f395d8dc7a
children 489f57a838ef
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
336 336
337 (defun bookmark-name-from-full-record (full-record) 337 (defun bookmark-name-from-full-record (full-record)
338 "Return name of FULL-RECORD \(an alist element instead of a string\)." 338 "Return name of FULL-RECORD \(an alist element instead of a string\)."
339 (car full-record)) 339 (car full-record))
340 340
341 341 ;;;###autoload
342 (defun bookmark-all-names () 342 (defun bookmark-all-names ()
343 "Return a list of all current bookmark names." 343 "Return a list of all current bookmark names."
344 (bookmark-maybe-load-default-file) 344 (bookmark-maybe-load-default-file)
345 (mapcar 345 (mapcar
346 (lambda (full-record) 346 (lambda (full-record)
2085 (interactive "e") 2085 (interactive "e")
2086 (cond ((fboundp 'x-popup-menu) ; Emacs 2086 (cond ((fboundp 'x-popup-menu) ; Emacs
2087 (x-popup-menu event (bookmark-menu-build-paned-menu name entries))) 2087 (x-popup-menu event (bookmark-menu-build-paned-menu name entries)))
2088 (t ; XEmacs 2088 (t ; XEmacs
2089 (get-popup-menu-response 2089 (get-popup-menu-response
2090 (cons title 2090 (cons name
2091 (mapcar 2091 (mapcar
2092 (function 2092 (function
2093 (lambda (x) 2093 (lambda (x)
2094 (if (stringp x) 2094 (if (stringp x)
2095 (vector x nil nil) 2095 (vector x nil nil)