From b8a15c74e7c2a2f5e0ffac5013774848daa88e81 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 27 Oct 2000 17:26:48 +0000 Subject: [PATCH] (nnheader-translate-file-chars): Only kludge things under Doze with XEmacs. --- lisp/nnheader.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index b8d8db5cf..d15446bb4 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -634,7 +634,8 @@ If FULL, translate everything." 2 0)) ;; We translate -- but only the file name. We leave the directory ;; alone. - (if (memq system-type '(win32 w32 mswindows windows-nt)) + (if (and (featurep 'xemacs) + (memq system-type '(win32 w32 mswindows windows-nt))) ;; This is needed on NT and stuff, because ;; file-name-nondirectory is not enough to split ;; file names, containing ':', e.g. @@ -652,7 +653,7 @@ If FULL, translate everything." (if (string-match "\\(^\\w:\\|[/\\]\\)\\([^/\\]+\\)$" file) (setq leaf (substring file (match-beginning 2)) path (substring file 0 (match-beginning 2))))) - ;; Fall back on this. + ;; Emacs DTRT, says andrewi. (setq leaf (file-name-nondirectory file) path (file-name-directory file)))) (setq len (length leaf)) -- 2.34.1