[Emacs-diffs] Changes to emacs/lisp/files.el,v

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Martin Rudalics <m061211>       08/09/15 09:23:14

Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.995
retrieving revision 1.996
diff -u -b -r1.995 -r1.996
--- files.el    2 Sep 2008 16:10:44 -0000       1.995
+++ files.el    15 Sep 2008 09:23:14 -0000      1.996
@@ -856,10 +856,14 @@
                   missing rest)
               (if longname
                   (setq filename longname)
-                ;; include the preceding directory separator in the missing
+                ;; Include the preceding directory separator in the missing
                 ;; part so subsequent recursion on the rest works.
                 (setq missing (concat "/" (file-name-nondirectory filename)))
-                (setq rest (substring filename 0 (* -1 (length missing))))
+               (let ((length (length missing)))
+                 (setq rest
+                       (if (> length (length filename))
+                           ""
+                         (substring filename 0 (- length)))))
                 (setq filename (concat (file-truename rest) missing))))))
        (setq done t)))