xemacs-beta: lisp/files.el comparison

comparison lisp/files.el @ 272:c5d627a313b1 r21-0b34

Import from CVS: tag r21-0b34

author	cvs
date	Mon, 13 Aug 2007 10:28:48 +0200
parents	966663fcf606
children	ca9a9ec9c1c1

comparison

equal deleted inserted replaced

-:c7b7086b0a39
+:c5d627a313b1
 ;;  to provide a new output method, but don't want to have to duplicate all
 ;;  of the backup file and file modes logic.that does not occur if one uses
 ;;  a write-file-hook which returns non-nil.
 (put 'write-file-data-hooks 'permanent-local t)
 (defvar write-file-data-hooks nil
 "List of functions to be called to put the bytes on disk.
 These functions receive the name of the file to write to as argument.
 The default behavior is to call
 (write-region (point-min) (point-max) filename nil t)
 If one of them returns non-nil, the file is considered already written
 and the rest are not called.
 These hooks are considered to pertain to the visited file.
 So this list is cleared if you change the visited file name.
 ;    filename))
 ;; XEmacs addition.  Called from `insert-file-contents-internal'
 ;; at the appropriate time.
 (defun compute-buffer-file-truename (&optional buffer)
-"Recomputes BUFFER's value of `buffer-file-truename'
+"Recompute BUFFER's value of `buffer-file-truename'
 based on the current value of `buffer-file-name'.
 BUFFER defaults to the current buffer if unspecified."
 (save-excursion
 (set-buffer (or buffer (current-buffer)))
 (cond ((null buffer-file-name)
 	    ;; 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
 			       (= (aref filename 0) ?/)))
 		     (not (and (or (eq system-type 'ms-dos)
 				   (eq system-type 'windows-nt))
 			       (save-match-data
 				 (string-match "^[a-zA-Z]:/$" filename)))))
 		(setq filename
 		      (concat "~"
 find-file-hooks, etc.
 This function ensures that none of these modifications will take place."
 (let ((file-name-handler-alist nil)
 	(format-alist nil)
 	(after-insert-file-functions nil)
 	(find-buffer-file-type-function
 	 (if (fboundp 'find-buffer-file-type)
 	     (symbol-function 'find-buffer-file-type)
 	   nil)))
 (unwind-protect
 	(progn
 ;			  (expand-file-name buffer-file-truename))))
 	  (and find-file-use-truenames
 	       ;; This should be in C.  Put pathname abbreviations that have
 	       ;; been explicitly requested back into the pathname.  Most
 	       ;; importantly, strip out automounter /tmp_mnt directories so
 	       ;; that auto-save will work
 	       (setq buffer-file-name (abbreviate-file-name buffer-file-name)))
 	  ;; Set buffer's default directory to that of the file.
 	  (setq default-directory (file-name-directory buffer-file-name))
 	  ;; Turn off backup files for certain file names.  Since
 	  ;; this is a permanent local, the major mode won't eliminate it.
 (while keep-going
 (setq keep-going nil)
 (let ((alist auto-mode-alist)
 (mode nil))
 ;; Find first matching alist entry.
 	      (let ((case-fold-search
 		     (memq system-type '(vax-vms windows-nt))))
 		(while (and (not mode) alist)
 		  (if (string-match (car (car alist)) name)
 		      (if (and (consp (cdr (car alist)))
 			       (nth 2 (car alist)))
 ;;;   Local variables:
 ;;;   variable-name: variable-value
 ;;;   end:
 ;;;
 ;;; The lines may begin with a common prefix, like ";;;   " in the above
 ;;; example.  They may also have a common suffix (" */" for example).  In
 ;;; this form, the local variable "mode" can be used to change the major
 ;;; mode, and the local variable "eval" can be used to evaluate an arbitrary
 ;;; form.
 ;;;
 ;;; Local variables may also be specified in the first line of the file.
 ;;; Embedded in this line are a pair of "-*-" sequences.  What lies between
 ;; Returns t if mode was set.
 (let ((result nil))
 (save-excursion
 (goto-char (point-min))
 (skip-chars-forward " \t\n\r")
 (let ((end (save-excursion
 		   ;; If the file begins with "#!"
 		   ;; (un*x exec interpreter magic), look
 		   ;; for mode frobs in the first two
 		   ;; lines.  You cannot necessarily
 		   ;; put them in the first line of
 		   (if (equal (downcase (symbol-name key)) "mode")
 		       (setq key 'mode))
 		   (setq result (cons (cons key val) result))
 		   (skip-chars-forward " \t;")))
 	       (setq result (nreverse result))))))
 (let ((set-any-p (or force
 			 ;; It's OK to force null specifications.
 			 (null result)
 			 ;; It's OK to force mode-only specifications.
 			 (let ((remaining result)
 (put 'exec-directory 'risky-local-variable t)
 (put 'process-environment 'risky-local-variable t)
 ;; Don't wait for outline.el to be loaded, for the sake of outline-minor-mode.
 (put 'outline-level 'risky-local-variable t)
 (put 'rmail-output-file-alist 'risky-local-variable t)
 ;; This one is safe because the user gets to check it before it is used.
 (put 'compile-command 'safe-local-variable t)
 ;(defun hack-one-local-variable-quotep (exp)
 ;  (and (consp exp) (eq (car exp) 'quote) (consp (cdr exp))))
 				pos))
 			 (string-match "~\\'" name)
 			 (length name))))))))
 (defun file-ownership-preserved-p (file)
-"Returns t if deleting FILE and rewriting it would preserve the owner."
+"Return t if deleting FILE and rewriting it would preserve the owner."
 (let ((handler (find-file-name-handler file 'file-ownership-preserved-p)))
 (if handler
 	(funcall handler 'file-ownership-preserved-p file)
 (let ((attributes (file-attributes file)))
 	;; Return t if the file doesn't exist, since it's true that no
 (let ((localval (symbol-value hook))
 	(globalval (default-value hook)))
 (if (memq t localval)
 	(setq localval (append (delq t localval) (delq t globalval))))
 localval))
 (defun basic-save-buffer ()
 "Save the current buffer in its visited file, if it has been modified.
 After saving the buffer, run `after-save-hook'."
 (interactive)
 (save-excursion
 		  (setq tempsetmodes t)
 		(error
 		 "Attempt to save to a file which you aren't allowed to write"))))))
 (or buffer-backed-up
 	(setq setmodes (backup-buffer)))
 (let ((dir (file-name-directory buffer-file-name)))
 (if (and file-precious-flag
 	       (file-writable-p dir))
 	  ;; If file is precious, write temp name, then rename it.
 	  ;; This requires write access to the containing dir,
 	  ;; which is why we don't try it if we don't have that access.
 				     tempname nil realname
 				     buffer-file-truename)
 		       (setq succeed t))
 	      ;; If writing the temp file fails,
 	      ;; delete the temp file.
 	      (or succeed
 		  (progn
 		    (delete-file tempname)
 		    (set-visited-file-modtime old-modtime))))
 	    ;; Since we have created an entirely new file
 	    ;; and renamed it, make sure it gets the
 ;; only rarely.
 ;; Not just because users often use the default.
 (interactive "FRecover file: ")
 (setq file (expand-file-name file))
 (let ((handler (or (find-file-name-handler file 'recover-file)
 		    (find-file-name-handler
 		     (let ((buffer-file-name file))
 		       (make-auto-save-file-name))
 		     'recover-file))))
 (if handler
 	(funcall handler 'recover-file file)
 	  (if files
 	      (map-y-or-n-p  "Recover %s? "
 			     (lambda (file)
 			       (condition-case nil
 				   (save-excursion (recover-file file))
 				 (error
 				  "Failed to recover `%s'" file)))
 			     files
 			     '("file" "files" "recover"))
 	    (message "No files can be recovered from this session now")))
 (kill-buffer buffer))))
 		      (file-name-nondirectory fname)
 		      "#")
 	    ;; Deal with buffers that don't have any associated files.  (Mail
 	    ;; mode tends to create a good number of these.)
 	    (let ((buffer-name (buffer-name))
 		  (limit 0))
 	      ;; Use technique from Sebastian Kremer's auto-save
 	      ;; package to turn slashes into \\!.  This ensures that
 	      ;; the auto-save buffer name is unique.
 	      ;; #### - yuck!  yuck!  yuck!  move this functionality
 	      ;; somewhere else and make the name translation customizable.
 	      ;; Using "\!" as part of a filename on a UNIX filesystem is nearly
 	      ;; IMPOSSIBLE to get past a shell parser.  -stig
 	      (while (string-match "[/\\]" buffer-name limit)
 		(setq buffer-name
 		      (concat (substring buffer-name 0 (match-beginning 0))
 			      (if (string= (substring buffer-name
 						      (match-beginning 0)
 	      ;; calls (make-auto-save-file-name) to determine whether
 	      ;; there is unsent, auto-saved mail to recover.  If that
 	      ;; mail came from a previous emacs process (far and away
 	      ;; the most likely case) then this can never succeed as
 	      ;; the pid differs.
 	      (expand-file-name (format "#%s#" buffer-name)))
 	    ))
 ;; don't try to write auto-save files in unwritable places.  Unless
 ;; there's already an autosave file here, put ours somewhere safe. --Stig
 (if (or (file-writable-p name)
 	     (eq system-type 'windows-nt))
 	(mswindows-insert-directory file switches wildcard full-directory-p))
 (t
 	(if wildcard
 	    ;; Run ls in the directory of the file pattern we asked for.
 	    (let ((default-directory
 (if (file-name-absolute-p file)
 (file-name-directory file)
 (file-name-directory (expand-file-name file))))
 		  (pattern (file-name-nondirectory file))
 		  (beg 0))

Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 272:c5d627a313b1 r21-0b34