(create-file-buffer): If the filename sans directory starts with spaces,

remove them.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 59cedc9e1601dd7543f8ec223616a2d18d07f085..6a3447dc01e0c87b3bed9c37689709fc3e6c9448 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-31  Micha\e,Ak\e(Bl Cadilhac  <michael@cadilhac.name>
+
+       * files.el (create-file-buffer): If the filename sans directory starts
+       with spaces, remove them.
+
 2007-08-31  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
 
        * term/x-win.el (x-gtk-stock-map): Add etc/images to keys.

diff --git a/lisp/files.el b/lisp/files.el
index 6f4c9cd6f4cee3330390adba5c4bb25817a834d1..3eba2d43111c0777b24832d67362d9815bb8fa2f 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1319,11 +1319,14 @@ killed."
 (defun create-file-buffer (filename)
   "Create a suitably named buffer for visiting FILENAME, and return it.
 FILENAME (sans directory) is used unchanged if that name is free;
-otherwise a string <2> or <3> or ... is appended to get an unused name."
+otherwise a string <2> or <3> or ... is appended to get an unused name.
+Spaces at the start of FILENAME (sans directory) are removed."
   (let ((lastname (file-name-nondirectory filename)))
     (if (string= lastname "")
        (setq lastname filename))
-    (generate-new-buffer lastname)))
+    (save-match-data
+      (string-match "^ *\\(.*\\)" lastname)
+      (generate-new-buffer (match-string 1 lastname)))))
 
 (defun generate-new-buffer (name)
   "Create and return a buffer with a name based on NAME.