From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 16 Feb 1996 00:58:07 +0000 (+0000)
Subject: (info-insert-file-contents-1) [MSDOS]: Remove leading
X-Git-Tag: emacs-19.34~1283
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1583fe94fcc6750c64a7a0f24a8a3504490b426a;p=emacs.git

(info-insert-file-contents-1) [MSDOS]: Remove leading
dot only from non-empty suffixes.
---

diff --git a/lisp/info.el b/lisp/info.el
index 62d87b3a7c1..a99463c3254 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -159,9 +159,10 @@ be last in the list.")
 	   (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)))))