Mercurial > emacs

changeset 14577:39a431eafb34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(info-insert-file-contents-1) [MSDOS]: Remove leading dot only from non-empty suffixes.
author Karl Heuer <kwzh@gnu.org>
date Fri, 16 Feb 1996 00:58:07 +0000
parents d82c768cb571
children 55d804f97ffc
files lisp/info.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Fri Feb 16 00:55:11 1996 +0000
+++ b/lisp/info.el	Fri Feb 16 00:58:07 1996 +0000
@@ -159,9 +159,10 @@
 	   (ext-len (max 0 (- (length filename) (length sans-exts) 1)))
 	   ext-left)
       ;; SUFFIX starts with a dot.  If FILENAME already has one,
-      ;; get rid of the one in SUFFIX.
+      ;; get rid of the one in SUFFIX (unless suffix is empty).
       (or (and (<= ext-len 0)
 	       (not (eq (aref filename (1- (length filename))) ?.)))
+	  (= (length suffix) 0)
 	  (setq suffix (substring suffix 1)))
       ;; How many chars of that extension should we keep?
       (setq ext-left (min ext-len (max 0 (- 3 (length suffix)))))