[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp dos-fns.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] emacs/lisp dos-fns.el |
Date: |
Fri, 26 Dec 2008 15:01:34 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Eli Zaretskii <eliz> 08/12/26 15:01:34
Modified files:
lisp : dos-fns.el
Log message:
(dosified-file-name): New function.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/dos-fns.el?cvsroot=emacs&r1=1.56&r2=1.57
Patches:
Index: dos-fns.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/dos-fns.el,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -b -r1.56 -r1.57
--- dos-fns.el 19 Oct 2008 11:20:00 -0000 1.56
+++ dos-fns.el 26 Dec 2008 15:01:34 -0000 1.57
@@ -186,6 +186,25 @@
(dos-8+3-filename dir))
string))))))
+;; This is for the sake of standard file names elsewhere in Emacs that
+;; are defined as constant strings or via defconst, and whose
+;; conversion via `convert-standard-filename' does not give good
+;; enough results.
+(defun dosified-file-name (file-name)
+ "Return a variant of FILE-NAME that is valid on MS-DOS filesystems.
+
+This function is for those rare cases where `convert-standard-filename'
+does not do a job that is good enough, e.g. if you need to preserve the
+file-name extension. It recognizes only certain specific file names
+that are used in Emacs Lisp sources; any other file name will be
+returned unaltered."
+ (cond
+ ;; See files.el:dir-locals-file.
+ ((string= file-name ".dir-locals.el")
+ "_dir-locals.el")
+ (t
+ file-name)))
+
;; See dos-vars.el for defcustom.
(defvar msdos-shells)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp dos-fns.el,
Eli Zaretskii <=