diff options
| author | Thien-Thi Nguyen | 2007-07-17 16:10:13 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen | 2007-07-17 16:10:13 +0000 |
| commit | 23fe28f248284aeaefc144cbe6fbd3884992f938 (patch) | |
| tree | 7a7526fc0252ad646fd16f7d860a7a3f9c3c101b | |
| parent | 73770b0319301feeb63a9f29f9e108d94ccb4ff9 (diff) | |
| download | emacs-23fe28f248284aeaefc144cbe6fbd3884992f938.tar.gz emacs-23fe28f248284aeaefc144cbe6fbd3884992f938.zip | |
(bookmark-show-all-annotations):
Make sure each inserted annotation ends with newline.
| -rw-r--r-- | lisp/bookmark.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 3c1469fef97..816ed8b182e 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el | |||
| @@ -1794,7 +1794,8 @@ if an annotation exists." | |||
| 1794 | (if (and ann (not (string-equal ann ""))) | 1794 | (if (and ann (not (string-equal ann ""))) |
| 1795 | ;; insert the annotation, indented by 4 spaces. | 1795 | ;; insert the annotation, indented by 4 spaces. |
| 1796 | (progn | 1796 | (progn |
| 1797 | (save-excursion (insert ann)) | 1797 | (save-excursion (insert ann) (unless (bolp) |
| 1798 | (insert "\n"))) | ||
| 1798 | (while (< (point) (point-max)) | 1799 | (while (< (point) (point-max)) |
| 1799 | (beginning-of-line) ; paranoia | 1800 | (beginning-of-line) ; paranoia |
| 1800 | (insert " ") | 1801 | (insert " ") |