diff options
| author | Richard M. Stallman | 2003-12-29 19:04:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-12-29 19:04:08 +0000 |
| commit | d09596261d476518b62c603e40b198dbaed71d6f (patch) | |
| tree | 7fe178cdb3412c5259f2ef6f01ad8d0ee477d627 | |
| parent | 52f2cda2f4285d82a7b3dd366ad43a01509903ab (diff) | |
| download | emacs-d09596261d476518b62c603e40b198dbaed71d6f.tar.gz emacs-d09596261d476518b62c603e40b198dbaed71d6f.zip | |
(bookmark-get-bookmark): Use assoc-string.
| -rw-r--r-- | lisp/bookmark.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 762de7323a2..67ae2c84865 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el | |||
| @@ -335,10 +335,7 @@ through a file easier.") | |||
| 335 | "Return the full entry for BOOKMARK in bookmark-alist. | 335 | "Return the full entry for BOOKMARK in bookmark-alist. |
| 336 | If BOOKMARK is not a string, return nil." | 336 | If BOOKMARK is not a string, return nil." |
| 337 | (when (stringp bookmark) | 337 | (when (stringp bookmark) |
| 338 | (apply (if bookmark-completion-ignore-case | 338 | (assoc-string bookmark bookmark-alist bookmark-completion-ignore-case))) |
| 339 | #'assoc-ignore-case | ||
| 340 | #'assoc) | ||
| 341 | (list bookmark bookmark-alist)))) | ||
| 342 | 339 | ||
| 343 | 340 | ||
| 344 | (defun bookmark-get-bookmark-record (bookmark) | 341 | (defun bookmark-get-bookmark-record (bookmark) |