Mercurial > emacs
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)))))) |