xemacs-beta: lisp/files.el comparison

comparison lisp/files.el @ 440:8de8e3f6228a r21-2-28

Import from CVS: tag r21-2-28

author	cvs
date	Mon, 13 Aug 2007 11:33:38 +0200
parents	84b14dcb0985
children	abe6d1db359e

comparison

equal deleted inserted replaced

-:357dd071b03c
+:8de8e3f6228a
 	    (setq filename
 		  (concat (cdr (car tail)) (substring filename (match-end 0)))))
 	  (setq tail (cdr tail))))
 (when hack-homedir
 	;; Compute and save the abbreviated homedir name.
-	;; We defer computing this until the first time it's needed, to
+	;; We defer computing this until the first time it's needed,
-	;; give time for directory-abbrev-alist to be set properly.
+	;; to give time for directory-abbrev-alist to be set properly.
-	;; We include a slash at the end, to avoid spurious matches
+	;; We include the separator at the end, to avoid spurious
-	;; such as `/usr/foobar' when the home dir is `/usr/foo'.
+	;; matches such as `/usr/foobar' when the home dir is
+	;; `/usr/foo'.
 	(or abbreviated-home-dir
 	    (setq abbreviated-home-dir
 		  (let ((abbreviated-home-dir "$foo"))
-		    (concat "\\`" (regexp-quote (abbreviate-file-name
+		    (concat "\\`"
-						 (expand-file-name "~")))
+			    (regexp-quote
-			    "\\(/\\|\\'\\)"))))
+			     (abbreviate-file-name (expand-file-name "~")))
+			    "\\("
+			    (regexp-quote (string directory-sep-char))
+			    "\\|\\'\\)"))))
 	;; If FILENAME starts with the abbreviated homedir,
 	;; make it start with `~' instead.
 	(if (and (string-match abbreviated-home-dir filename)
 		 ;; If the home dir is just /, don't change it.
-		 (not (and (= (match-end 0) 1) ;#### unix-specific
+		 (not (and (= (match-end 0) 1)
-			   (= (aref filename 0) ?/)))
+			   (= (aref filename 0) directory-sep-char)))
-		 (not (and (memq system-type '(ms-dos windows-nt))
+		 (not (and (eq system-type 'windows-nt)
 			   (save-match-data
-			     (string-match "^[a-zA-Z]:/$" filename)))))
+			     (string-match (concat "\\`[a-zA-Z]:"
+						   (regexp-quote
+						    (string directory-sep-char))
+						   "\\'")
+					   filename)))))
 	    (setq filename
 		  (concat "~"
-			  (substring filename
+			  (match-string 1 filename)
-				     (match-beginning 1) (match-end 1))
 			  (substring filename (match-end 0))))))
 filename)))
 (defcustom find-file-not-true-dirname-list nil
 "*List of logical names for which visiting shouldn't save the true dirname."
 (keep-going t))
 (while keep-going
 (setq keep-going nil)
 (let ((alist auto-mode-alist)
 (mode nil))
 ;; Find first matching alist entry.
+	      ;; #### This is incorrect. In NT, case sensitivity is a volume
+	      ;; property. For instance, NFS mounts *are* case sensitive.
+	      ;; Need internal function (file-name-case-sensitive f), F
+	      ;; being file or directory name. - kkm
 	      (let ((case-fold-search
-		     (memq system-type '(windows-nt))))
+		     (eq system-type 'windows-nt)))
 		(while (and (not mode) alist)
 		  (if (string-match (car (car alist)) name)
 		      (if (and (consp (cdr (car alist)))
 			       (nth 2 (car alist)))
 			  (progn
 		(if backup-info
 		    (condition-case ()
 			(let ((delete-old-versions
 			       ;; If have old versions to maybe delete,
 			       ;; ask the user to confirm now, before doing anything.
-			       ;; But don't actually delete til later.
+			       ;; But don't actually delete till later.
 			       (and targets
 				    (or (eq delete-old-versions t)
 					(eq delete-old-versions nil))
 				    (or delete-old-versions
 					(y-or-n-p (format "Delete excess backup versions of %s? "
 "")))))
 (defun make-backup-file-name (file)
 "Create the non-numeric backup file name for FILE.
 This is a separate function so you can redefine it for customization."
-(if (eq system-type 'ms-dos)
+(concat file "~"))
-(let ((fn (file-name-nondirectory file)))
-	(concat (file-name-directory file)
-		(if (string-match "\\([^.]*\\)\\(\\..*\\)?" fn)
-		    (substring fn 0 (match-end 1)))
-		".bak"))
-(concat file "~")))
 (defun backup-file-name-p (file)
 "Return non-nil if FILE is a backup file name (numeric or not).
 This is a separate function so you can redefine it for customization.
 You may need to redefine `file-name-sans-versions' as well."
-(if (eq system-type 'ms-dos)
+(string-match "~\\'" file))
-(string-match "\\.bak\\'" file)
-(string-match "~\\'" file)))
 ;; This is used in various files.
 ;; The usage of bv-length is not very clean,
 ;; but I can't see a good alternative,
 ;; so as of now I am leaving it alone.
 (let ((fname (expand-file-name filename)))
 (setq directory (file-name-as-directory
 		       (expand-file-name (or directory default-directory))))
 ;; On Microsoft OSes, if FILENAME and DIRECTORY have different
 ;; drive names, they can't be relative, so return the absolute name.
-(if (and (memq system-type '(ms-dos windows-nt))
+(if (and (eq system-type 'windows-nt)
 	       (not (string-equal (substring fname  0 2)
 				  (substring directory 0 2))))
 	  filename
 	(let ((ancestor ".")
 	      (fname-dir (file-name-as-directory fname)))
 			    (setq found t)))))
 		 (yes-or-no-p (format "Revert buffer from file %s? "
 				      file-name)))
 	     (run-hooks 'before-revert-hook)
 	     ;; If file was backed up but has changed since,
-	     ;; we shd make another backup.
+	     ;; we should make another backup.
 	     (and (not auto-save-p)
 		  (not (verify-visited-file-modtime (current-buffer)))
 		  (setq buffer-backed-up nil))
 	     ;; Get rid of all undo records for this buffer.
 	     (or (eq buffer-undo-list t)
 					 'insert-directory)))
 (if handler
 	(funcall handler 'insert-directory file switches
 		 wildcard full-directory-p)
 (cond
+;; #### mswindows-insert-directory should be called
+;; nt-insert-directory - kkm.
 ((and (fboundp 'mswindows-insert-directory)
 	     (eq system-type 'windows-nt))
 	(mswindows-insert-directory file switches wildcard full-directory-p))
 (t
 	(if wildcard

Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 440:8de8e3f6228a r21-2-28