Commit 0c4371fe authored by Karl Fogel's avatar Karl Fogel
Browse files

* lisp/bookmark.el (bookmark-show-annotation): Use `when' instead of `if'.

  This is also from Thierry Volpiatto's patch in bug #6444.  However,
  because it was extraneous to the functional change in that patch,
  and causes a re-indendation, I am committing it separately.
parent 068a0233
2010-07-13 Karl Fogel <kfogel@red-bean.com>
* bookmark.el (bookmark-show-annotation): Use `when' instead of `if'.
This is also from Thierry Volpiatto's patch in bug #6444. However,
because it was extraneous to the functional change in that patch,
and causes a re-indendation, I am committing it separately.
2010-07-13 Karl Fogel <kfogel@red-bean.com> 2010-07-13 Karl Fogel <kfogel@red-bean.com>
   
* bookmark.el (bookmark-show-annotation): Ensure annotations show, * bookmark.el (bookmark-show-annotation): Ensure annotations show,
......
...@@ -1733,7 +1733,7 @@ last full line, move to the last full line. The return value is undefined." ...@@ -1733,7 +1733,7 @@ last full line, move to the last full line. The return value is undefined."
"Display the annotation for bookmark named BOOKMARK in a buffer, "Display the annotation for bookmark named BOOKMARK in a buffer,
if an annotation exists." if an annotation exists."
(let ((annotation (bookmark-get-annotation bookmark))) (let ((annotation (bookmark-get-annotation bookmark)))
(if (and annotation (not (string-equal annotation ""))) (when (and annotation (not (string-equal annotation "")))
(save-excursion (save-excursion
(let ((old-buf (current-buffer))) (let ((old-buf (current-buffer)))
(pop-to-buffer (get-buffer-create "*Bookmark Annotation*") t) (pop-to-buffer (get-buffer-create "*Bookmark Annotation*") t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment