From e959542d9950f0ae7d85df9811758eb7b747746c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 6 Sep 2006 16:32:18 +0000 Subject: [PATCH] (abbreviate-file-name): Don't mistakenly match newlines in file name. --- lisp/ChangeLog | 5 +++++ lisp/files.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8fc0401d591..55fa2cf011b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-09-06 Stefan Monnier + + * files.el (abbreviate-file-name): Don't mistakenly match newlines in + file name. + 2006-09-06 Ralf Angeli * frame.el (display-mm-dimensions-alist): New defcustom. diff --git a/lisp/files.el b/lisp/files.el index 0cd17932fd8..a96ba9776ef 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1310,7 +1310,7 @@ removes automounter prefixes (see the variable `automount-dir-prefix')." (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. -- 2.39.2