mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(bookmark-show-all-annotations):

Browse Source 
Make sure each inserted annotation ends with newline.
This commit is contained in:
Thien-Thi Nguyen 2007-07-16 02:17:28 +00:00
parent 5412a7f398
commit fd5306d288
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2007-07-16 Thien-Thi Nguyen <ttn@gnuvola.org>
* bookmark.el (bookmark-show-all-annotations):
Make sure each inserted annotation ends with newline.
2007-07-15 Juri Linkov <juri@jurta.org>
* delsel.el (delete-selection-pre-hook):

3
lisp/bookmark.el
View File

@ -1816,7 +1816,8 @@ if an annotation exists."
(if (and ann (not (string-equal ann "")))
;; insert the annotation, indented by 4 spaces.
(progn
(save-excursion (insert ann))
(save-excursion (insert ann) (unless (bolp)
(insert "\n")))
(while (< (point) (point-max))
(beginning-of-line) ; paranoia
(insert " ")