mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(dos-8+3-filename): Rename from dos-truncate-to-8+3.

Browse Source 
All callers changed.
This commit is contained in:
Eli Zaretskii 2001-04-07 07:55:22 +00:00
parent b138056a79
commit 51f32106f2
3 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2001-04-07 Eli Zaretskii <eliz@is.elta.co.il>
* dos-fns.el (dos-8+3-filename): Rename from dos-truncate-to-8+3.
All callers changed.
2001-04-06 Eli Zaretskii <eliz@is.elta.co.il>
* international/titdic-cnv.el (miscdic-convert): For MS-DOS, if

8
lisp/dos-fns.el
View File

@ -114,7 +114,7 @@ with a definition that really does change some file names."
(convert-standard-filename dir))
string))))))
(defun dos-truncate-to-8+3 (filename)
(defun dos-8+3-filename (filename)
"Truncate FILENAME to DOS 8+3 limits."
(if (or (not (stringp filename))
(< (length filename) 5)) ; too short to give any trouble
@ -122,7 +122,7 @@ with a definition that really does change some file names."
(let ((flen (length filename)))
;; If FILENAME has a trailing slash, remove it and recurse.
(if (memq (aref filename (1- flen)) '(?/ ?\\))
(concat (dos-truncate-to-8+3 (substring filename 0 (1- flen)))
(concat (dos-8+3-filename (substring filename 0 (1- flen)))
"/")
(let* (;; ange-ftp gets in the way for names like "/foo:bar".
;; We need to inhibit all magic file names, because
@ -166,10 +166,10 @@ with a definition that really does change some file names."
(aset string (1- (length string)) lastchar))
(concat (if (and (stringp dir)
(memq (aref dir dlen-m-1) '(?/ ?\\)))
(concat (dos-truncate-to-8+3 (substring dir 0 dlen-m-1))
(concat (dos-8+3-filename (substring dir 0 dlen-m-1))
"/")
;; Recurse to truncate the leading directories.
(dos-truncate-to-8+3 dir))
(dos-8+3-filename dir))
string))))))
;; See dos-vars.el for defcustom.

2
lisp/international/titdic-cnv.el
View File

@ -983,7 +983,7 @@ the generated Quail package is saved."
;; Give DOS users a chance...
(and (fboundp 'msdos-long-file-names)
(not (msdos-long-file-names))
(string-match (dos-truncate-to-8+3 (nth 2 (car tail)))
(string-match (dos-8+3-filename (nth 2 (car tail)))
filename)))
(setq slot (car tail)
name (car slot)