Mercurial > emacs
changeset 72682:06233cacfef2
(abbreviate-file-name): Don't mistakenly match newlines in file name.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 06 Sep 2006 16:32:18 +0000 |
| parents | c1ad5d1c9fca |
| children | e37026af049b |
| files | lisp/ChangeLog lisp/files.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Sep 06 13:01:57 2006 +0000 +++ b/lisp/ChangeLog Wed Sep 06 16:32:18 2006 +0000 @@ -1,3 +1,8 @@ +2006-09-06 Stefan Monnier <monnier@iro.umontreal.ca> + + * files.el (abbreviate-file-name): Don't mistakenly match newlines in + file name. + 2006-09-06 Ralf Angeli <angeli@caeruleus.net> * frame.el (display-mm-dimensions-alist): New defcustom.
--- a/lisp/files.el Wed Sep 06 13:01:57 2006 +0000 +++ b/lisp/files.el Wed Sep 06 16:32:18 2006 +0000 @@ -1310,7 +1310,7 @@ (setq abbreviated-home-dir (let ((abbreviated-home-dir "$foo")) (concat "^" (abbreviate-file-name (expand-file-name "~")) - "\\(/\\|$\\)")))) + "\\(/\\|\\'\\)")))) ;; If FILENAME starts with the abbreviated homedir, ;; make it start with `~' instead.