mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

Use abbreviated file names in bookmarks (bug#5591).

Browse Source 
* bookmark.el (bookmark-maybe-load-default-file): Remove redundant
calls to expand-file-name.
(bookmark-relocate): Use abbreviated file names in bookmarks.
(bookmark-load): Use abbreviated file names in messages.
This commit is contained in:
Stefan Monnier 2010-02-18 13:52:36 -05:00
parent 886cc2b86a
commit fe8c0b47d2
2 changed files with 25 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2010-02-18 Stefan Monnier <monnier@iro.umontreal.ca>
Use abbreviated file names in bookmarks (bug#5591).
* bookmark.el (bookmark-maybe-load-default-file): Remove redundant
calls to expand-file-name.
(bookmark-relocate): Use abbreviated file names in bookmarks.
(bookmark-load): Use abbreviated file names in messages.
2010-02-18 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-handle-directory-files): When FULL, do not
@ -25,8 +33,8 @@
2010-02-16 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Fix
errors in copying directories.
* net/tramp.el (tramp-do-copy-or-rename-file-out-of-band):
Fix errors in copying directories.
(tramp-handle-add-name-to-file, tramp-handle-copy-directory)
(tramp-do-copy-or-rename-file, tramp-handle-delete-directory)
(tramp-handle-delete-file)
@ -52,8 +60,7 @@
* cedet/srecode.el (srecode):
* cedet/semantic.el (semantic): Put in tools and extensions group.
* nxml/nxml-mode.el (nxml-faces): Remove from font-lock-faces
group.
* nxml/nxml-mode.el (nxml-faces): Remove from font-lock-faces group.
* textmodes/flyspell.el (flyspell-word): Obey the offset specified
by ispell-parse-output (Bug#5575).
@ -170,8 +177,7 @@
2010-02-08 Jose E. Marchesi <jemarch@gnu.org>
* progmodes/ada-mode.el (ada-in-numeric-literal-p): New function.
(ada-adjust-case): Don't adjust case in hexadecimal number
literals.
(ada-adjust-case): Don't adjust case in hexadecimal number literals.
2010-02-08 Kenichi Handa <handa@m17n.org>

24
lisp/bookmark.el
View File

@ -958,14 +958,14 @@ it to the name of the bookmark currently being set, advancing
(and
;; Possibly the old bookmark file, "~/.emacs-bkmrks", needs
;; to be renamed.
(file-exists-p (expand-file-name bookmark-old-default-file))
(not (file-exists-p (expand-file-name bookmark-default-file)))
(rename-file (expand-file-name bookmark-old-default-file)
(expand-file-name bookmark-default-file)))
(file-exists-p bookmark-old-default-file)
(not (file-exists-p bookmark-default-file))
(rename-file bookmark-old-default-file
bookmark-default-file))
;; return t so the `and' will continue...
t)
(file-readable-p (expand-file-name bookmark-default-file))
(file-readable-p bookmark-default-file)
(bookmark-load bookmark-default-file t t)
(setq bookmarks-already-loaded t)))
@ -1152,10 +1152,11 @@ after a bookmark was set in it."
(bookmark-maybe-historicize-string bookmark)
(bookmark-maybe-load-default-file)
(let* ((bmrk-filename (bookmark-get-filename bookmark))
(newloc (expand-file-name
(read-file-name
(format "Relocate %s to: " bookmark)
(file-name-directory bmrk-filename)))))
(newloc (abbreviate-file-name
(expand-file-name
(read-file-name
(format "Relocate %s to: " bookmark)
(file-name-directory bmrk-filename))))))
(bookmark-set-filename bookmark newloc)
(setq bookmark-alist-modification-count
(1+ bookmark-alist-modification-count))
@ -1432,7 +1433,7 @@ method buffers use to resolve name collisions."
;;but there's no better default, and
;;I guess it's better than none at all.
"~/" bookmark-default-file 'confirm)))
(setq file (expand-file-name file))
(setq file (abbreviate-file-name (expand-file-name file)))
(if (not (file-readable-p file))
(error "Cannot read bookmark file %s" file)
(if (null no-msg)
@ -1453,7 +1454,8 @@ method buffers use to resolve name collisions."
(setq bookmark-alist-modification-count
(1+ bookmark-alist-modification-count)))
(if (string-equal
(expand-file-name bookmark-default-file)
(abbreviate-file-name
(expand-file-name bookmark-default-file))
file)
(setq bookmarks-already-loaded t))
(bookmark-bmenu-surreptitiously-rebuild-list))