Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
1583fe94
Commit
1583fe94
authored
Feb 16, 1996
by
Karl Heuer
Browse files
(info-insert-file-contents-1) [MSDOS]: Remove leading
dot only from non-empty suffixes.
parent
5da565f8
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
1 deletion
+2
-1
lisp/info.el
lisp/info.el
+2
-1
No files found.
lisp/info.el
View file @
1583fe94
...
...
@@ -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
)))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment