comparison lisp/bookmark.el @ 81899:f10b72da2fb4

(bookmark-show-all-annotations): Make sure each inserted annotation ends with newline.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Mon, 16 Jul 2007 02:16:00 +0000
parents a7d43c06a61a
children fbf992fc2463
comparison
equal deleted inserted replaced
81898:c363dc984506 81899:f10b72da2fb4
1814 (ann (bookmark-get-annotation name))) 1814 (ann (bookmark-get-annotation name)))
1815 (insert (concat name ":\n")) 1815 (insert (concat name ":\n"))
1816 (if (and ann (not (string-equal ann ""))) 1816 (if (and ann (not (string-equal ann "")))
1817 ;; insert the annotation, indented by 4 spaces. 1817 ;; insert the annotation, indented by 4 spaces.
1818 (progn 1818 (progn
1819 (save-excursion (insert ann)) 1819 (save-excursion (insert ann) (unless (bolp)
1820 (insert "\n")))
1820 (while (< (point) (point-max)) 1821 (while (< (point) (point-max))
1821 (beginning-of-line) ; paranoia 1822 (beginning-of-line) ; paranoia
1822 (insert " ") 1823 (insert " ")
1823 (forward-line) 1824 (forward-line)
1824 (end-of-line)))))) 1825 (end-of-line))))))