Mercurial > hg > xemacs-beta
comparison lisp/packages/bookmark.el @ 2:ac2d302a0011 r19-15b2
Import from CVS: tag r19-15b2
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:46:35 +0200 |
| parents | 376386a54a3c |
| children | ec9a17fef872 |
comparison
equal
deleted
inserted
replaced
| 1:c0c6a60d29db | 2:ac2d302a0011 |
|---|---|
| 1212 (bookmark-maybe-historicize-string bookmark) | 1212 (bookmark-maybe-historicize-string bookmark) |
| 1213 (bookmark-maybe-load-default-file) | 1213 (bookmark-maybe-load-default-file) |
| 1214 (let ((will-go (bookmark-get-bookmark bookmark))) | 1214 (let ((will-go (bookmark-get-bookmark bookmark))) |
| 1215 (setq bookmark-alist (delq will-go bookmark-alist)) | 1215 (setq bookmark-alist (delq will-go bookmark-alist)) |
| 1216 ;; Added by db, nil bookmark-current-bookmark if the last | 1216 ;; Added by db, nil bookmark-current-bookmark if the last |
| 1217 ;; occurence has been deleted | 1217 ;; occurrence has been deleted |
| 1218 (or (bookmark-get-bookmark bookmark-current-bookmark) | 1218 (or (bookmark-get-bookmark bookmark-current-bookmark) |
| 1219 (setq bookmark-current-bookmark nil))) | 1219 (setq bookmark-current-bookmark nil))) |
| 1220 ;; Don't rebuild the list | 1220 ;; Don't rebuild the list |
| 1221 (if batch | 1221 (if batch |
| 1222 nil | 1222 nil |