From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 15 Nov 1995 23:17:18 +0000 (+0000)
Subject: (info-insert-file-contents-1): Various rewrites.
X-Git-Tag: emacs-19.34~2298
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8e9dd5444cb0cc9277d92e65577035d421015d7;p=emacs.git

(info-insert-file-contents-1): Various rewrites.
Compute EXT-LEFT after removing the dot from SUFFIX.
---

diff --git a/lisp/info.el b/lisp/info.el
index 13447f330b3..6e8252c10a4 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -142,22 +142,23 @@ the command as standard input.  If STRING is nil, no decoding is done.
 Because the SUFFIXes are tried in order, the empty string should
 be last in the list.")
 
-;; Concatenate SUFFIX onto FILENAME.
+;; Concatenate SUFFIX onto FILENAME.  SUFFIX should start with a dot.
 ;; First, on ms-dos, delete some of the extension in FILENAME
 ;; to make room.
 (defun info-insert-file-contents-1 (filename suffix)
   (if (not (eq system-type 'ms-dos))
       (concat filename suffix)
     (let* ((sans-exts (file-name-sans-extension filename))
-	   ;; How long is the extension in FILENAME.
-	   (ext-len (- (length filename) (length sans-exts) 1))
-	   ;; How many chars of that extension should we keep?
-	   (ext-left (max 0 (- 3 (length suffix)))))
+	   ;; How long is the extension in FILENAME (not counting the dot).
+	   (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.
-      (or (and (zerop ext-len)
+      (or (and (<= ext-len 0)
 	       (not (eq (aref filename (1- (length filename))) ?.)))
 	  (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)))))
       ;; Get rid of the rest of the extension, and add SUFFIX.
       (concat (substring filename 0 (- (length filename)
 				       (- ext-len ext-left)))