From: Stefan Monnier Date: Fri, 21 Nov 2008 19:07:21 +0000 (+0000) Subject: (bookmark-buffer-file-name): Also abbreviate dired-dir. X-Git-Tag: emacs-pretest-23.0.90~1657 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3889f0fa5fc6489aa2e0e236581838c29f59dc7d;p=emacs.git (bookmark-buffer-file-name): Also abbreviate dired-dir. Suggested by Toru TSUNEYOSHI. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 86ae44ebf9a..46716b2e4c1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,15 +1,20 @@ +2008-11-21 Stefan Monnier + + * bookmark.el (bookmark-buffer-file-name): Also abbreviate dired-dir. + Suggested by Toru TSUNEYOSHI. + 2008-11-21 Shigeru Fukaya * byte-opt.el (byte-compile-butlast): Move up in file. (byte-optimize-plus): Don't call - byte-optimize-delay-constants-math (bug#1334). Use - byte-optimize-predicate to optimize constants. + byte-optimize-delay-constants-math (bug#1334). + Use byte-optimize-predicate to optimize constants. (byte-optimize-minus): Don't call byte-optimize-delay-constants-math. Remove zero arguments first if possible. Call byte-optimize-predicate to optimize constants. (byte-optimize-multiply): Remove optimizations for arguments of 0 - and 2, which may be inaccurate. Optimize (* x -1) to (- x). Call - byte-optimize-predicate. + and 2, which may be inaccurate. Optimize (* x -1) to (- x). + Call byte-optimize-predicate. (byte-optimize-divide): Leave runtime errors unchanged. Optimize (/ x 1) to (+ x 0). Remove optimizations for arguments of 0 and 2.0, which may be inaccurate. Call byte-optimize-predicate. @@ -275,8 +280,7 @@ 2008-11-16 Chong Yidong - * subr.el (read-passwd): Use read-event instead of - read-char-exclusive. + * subr.el (read-passwd): Use read-event instead of read-char-exclusive. 2008-11-16 Stefan Monnier @@ -368,7 +372,7 @@ * emulation/viper-init.el (viper-ESC-keyseq-timeout): Make it into a function instead of a variable. - * emulation/viper-util.el (viper-fast-keysequence-p): Changed to use + * emulation/viper-util.el (viper-fast-keysequence-p): Change to use viper-ESC-keyseq-timeout as a function. (viper-get-saved-cursor-color-in-replace-mode): Use defun instead of defsubst. @@ -13611,8 +13615,8 @@ 2008-03-01 Glenn Morris - * emacs-lisp/bytecomp.el (byte-compile-maybe-guarded): Restore - code commented out 2007-11-10. + * emacs-lisp/bytecomp.el (byte-compile-maybe-guarded): + Restore code commented out 2007-11-10. * emulation/edt.el (zmacs-region-stays): Define for compiler once only. diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 8a48cf3e18b..1ae32d1fb0e 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -888,17 +888,17 @@ Default to file name if it's nil." (defun bookmark-buffer-file-name () "Return the current buffer's file in a way useful for bookmarks." - (cond - (buffer-file-name - ;; Abbreviate the path, both so it's shorter and so it's more - ;; portable. E.g., the user's home dir might be a different - ;; path on different machines, but "~/" will still reach it. - (abbreviate-file-name buffer-file-name)) - ((and (boundp 'dired-directory) dired-directory) - (if (stringp dired-directory) - dired-directory - (car dired-directory))) - (t (error "Buffer not visiting a file or directory")))) + ;; Abbreviate the path, both so it's shorter and so it's more + ;; portable. E.g., the user's home dir might be a different + ;; path on different machines, but "~/" will still reach it. + (abbreviate-file-name + (cond + (buffer-file-name buffer-file-name) + ((and (boundp 'dired-directory) dired-directory) + (if (stringp dired-directory) + dired-directory + (car dired-directory))) + (t (error "Buffer not visiting a file or directory"))))) (defun bookmark-maybe-load-default-file ()