xemacs-beta: lisp/files.el comparison

comparison lisp/files.el @ 771:943eaba38521

[xemacs-hg @ 2002-03-13 08:51:24 by ben] The big ben-mule-21-5 check-in! Various files were added and deleted. See CHANGES-ben-mule. There are still some test suite failures. No crashes, though. Many of the failures have to do with problems in the test suite itself rather than in the actual code. I'll be addressing these in the next day or so -- none of the test suite failures are at all critical. Meanwhile I'll be trying to address the biggest issues -- i.e. build or run failures, which will almost certainly happen on various platforms. All comments should be sent to ben@xemacs.org -- use a Cc: if necessary when sending to mailing lists. There will be pre- and post- tags, something like pre-ben-mule-21-5-merge-in, and post-ben-mule-21-5-merge-in.

author	ben
date	Wed, 13 Mar 2002 08:54:06 +0000
parents	c00528d80f25
children	703228f54913

comparison

equal deleted inserted replaced

-:336a418893b5
+:943eaba38521
 ;;; files.el --- file input and output commands for XEmacs.
 ;; Copyright (C) 1985-1987, 1992-1995, 1997 Free Software Foundation, Inc.
 ;; Copyright (C) 1995 Sun Microsystems.
+;; Copyright (C) 2001, 2002 Ben Wing.
 ;; Maintainer: XEmacs Development Team
 ;; Keywords: extensions, dumped
 ;; This file is part of XEmacs.
 				  (list (cons 'name (symbol-name name)))))))
 (pop-to-buffer buffer t frame)
 (make-frame-visible frame)
 buffer))
+(defun switch-to-next-buffer (&optional n)
+"Switch to the next-most-recent buffer.
+This essentially rotates the buffer list forward.
+N (interactively, the prefix arg) specifies how many times to rotate
+forward, and defaults to 1.  Buffers whose name begins with a space
+\(i.e. \"invisible\" buffers) are ignored."
+;; Here is a different interactive spec.  Look up the function
+;; `interactive' (i.e. `C-h f interactive') to understand how this
+;; all works.
+(interactive "p")
+(dotimes (n (or n 1))
+(loop
+do (bury-buffer (car (buffer-list)))
+while (funcall buffers-tab-omit-function (car (buffer-list))))
+(switch-to-buffer (car (buffer-list)))))
+(defun switch-to-previous-buffer (&optional n)
+"Switch to the previously most-recent buffer.
+This essentially rotates the buffer list backward.
+N (interactively, the prefix arg) specifies how many times to rotate
+backward, and defaults to 1.  Buffers whose name begins with a space
+\(i.e. \"invisible\" buffers) are ignored."
+(interactive "p")
+(dotimes (n (or n 1))
+(loop
+do (switch-to-buffer (car (last (buffer-list))))
+while (funcall buffers-tab-omit-function (car (buffer-list))))))
+(defun switch-to-next-buffer-in-group (&optional n)
+"Switch to the next-most-recent buffer in the current group.
+This essentially rotates the buffer list forward.
+N (interactively, the prefix arg) specifies how many times to rotate
+forward, and defaults to 1.  Buffers whose name begins with a space
+\(i.e. \"invisible\" buffers) are ignored."
+(interactive "p")
+(dotimes (n (or n 1))
+(let ((curbuf (car (buffer-list))))
+(loop
+	do (bury-buffer (car (buffer-list)))
+	while (or (funcall buffers-tab-omit-function (car (buffer-list)))
+		  (not (funcall buffers-tab-selection-function
+			curbuf (car (buffer-list)))))))
+(switch-to-buffer (car (buffer-list)))))
+(defun switch-to-previous-buffer-in-group (&optional n)
+"Switch to the previously most-recent buffer in the current group.
+This essentially rotates the buffer list backward.
+N (interactively, the prefix arg) specifies how many times to rotate
+backward, and defaults to 1.  Buffers whose name begins with a space
+\(i.e. \"invisible\" buffers) are ignored."
+(interactive "p")
+(dotimes (n (or n 1))
+(let ((curbuf (car (buffer-list))))
+(loop
+	do (switch-to-buffer (car (last (buffer-list))))
+	while (or (funcall buffers-tab-omit-function (car (buffer-list)))
+		  (not (funcall buffers-tab-selection-function
+			curbuf (car (buffer-list)))))))))
 (defun find-file (filename &optional codesys)
 "Edit file FILENAME.
-Switch to a buffer visiting file FILENAME,
+Switch to a buffer visiting file FILENAME, creating one if none already
-creating one if none already exists.
+exists.  Optional second argument specifies the coding system to use when
-Under XEmacs/Mule, optional second argument specifies the
+decoding the file.  Interactively, with a prefix argument, you will be
-coding system to use when decoding the file.  Interactively,
+prompted for the coding system.
-with a prefix argument, you will be prompted for the coding system."
+If you do not explicitly specify a coding system, the coding system
+is determined as follows:
+1. `coding-system-for-read', if non-nil. (This is used by Lisp programs to
+temporarily set an overriding coding system and should almost never
+apply here in `find-file'.)
+2. The result of `insert-file-contents-pre-hook', if non-nil. (This is a
+complex interface for handling special cases.)
+3. The matching value for this filename from `file-coding-system-alist',
+if any. (This lets you specify the coding system to be used for
+files with particular extensions, names, etc.)
+4. `buffer-file-coding-system-for-read', if non-nil. (This is the global
+default -- normally `undecided', so the built-in auto-detection
+mechanism can do its thing.)
+5. The coding system 'raw-text.
+See `insert-file-contents' for more details about how the process of
+determining the coding system works."
 (interactive "FFind file: \nZCoding system: ")
 (if codesys
 (let ((coding-system-for-read
 	     (get-coding-system codesys)))
 	(switch-to-buffer (find-file-noselect filename)))
 (switch-to-buffer (find-file-noselect filename))))
 (defun find-file-other-window (filename &optional codesys)
 "Edit file FILENAME, in another window.
-May create a new window, or reuse an existing one.
+May create a new window, or reuse an existing one.  See the function
-See the function `display-buffer'.
+`display-buffer'.  Optional second argument specifies the coding system to
-Under XEmacs/Mule, optional second argument specifies the
+use when decoding the file.  Interactively, with a prefix argument, you
-coding system to use when decoding the file.  Interactively,
+will be prompted for the coding system."
-with a prefix argument, you will be prompted for the coding system."
 (interactive "FFind file in other window: \nZCoding system: ")
 (if codesys
 (let ((coding-system-for-read
 	     (get-coding-system codesys)))
 	(switch-to-buffer-other-window (find-file-noselect filename)))
 (switch-to-buffer-other-window (find-file-noselect filename))))
 (defun find-file-other-frame (filename &optional codesys)
 "Edit file FILENAME, in a newly-created frame.
-Under XEmacs/Mule, optional second argument specifies the
+Optional second argument specifies the coding system to use when decoding
-coding system to use when decoding the file.  Interactively,
+the file.  Interactively, with a prefix argument, you will be prompted for
-with a prefix argument, you will be prompted for the coding system."
+the coding system."
 (interactive "FFind file in other frame: \nZCoding system: ")
 (if codesys
 (let ((coding-system-for-read
 	     (get-coding-system codesys)))
 	(switch-to-buffer-other-frame (find-file-noselect filename)))
 (defun find-file-read-only (filename &optional codesys)
 "Edit file FILENAME but don't allow changes.
 Like \\[find-file] but marks buffer as read-only.
 Use \\[toggle-read-only] to permit editing.
-Under XEmacs/Mule, optional second argument specifies the
+Optional second argument specifies the coding system to use when decoding
-coding system to use when decoding the file.  Interactively,
+the file.  Interactively, with a prefix argument, you will be prompted for
-with a prefix argument, you will be prompted for the coding system."
+the coding system."
 (interactive "fFind file read-only: \nZCoding system: ")
 (if codesys
 (let ((coding-system-for-read
 	     (get-coding-system codesys)))
 	(find-file filename))
 (defun find-file-read-only-other-window (filename &optional codesys)
 "Edit file FILENAME in another window but don't allow changes.
 Like \\[find-file-other-window] but marks buffer as read-only.
 Use \\[toggle-read-only] to permit editing.
-Under XEmacs/Mule, optional second argument specifies the
+Optional second argument specifies the coding system to use when decoding
-coding system to use when decoding the file.  Interactively,
+the file.  Interactively, with a prefix argument, you will be prompted for
-with a prefix argument, you will be prompted for the coding system."
+the coding system."
 (interactive "fFind file read-only other window: \nZCoding system: ")
 (if codesys
 (let ((coding-system-for-read
 	     (get-coding-system codesys)))
 	(find-file-other-window filename))
 (defun find-file-read-only-other-frame (filename &optional codesys)
 "Edit file FILENAME in another frame but don't allow changes.
 Like \\[find-file-other-frame] but marks buffer as read-only.
 Use \\[toggle-read-only] to permit editing.
-Under XEmacs/Mule, optional second argument specifies the
+Optional second argument specifies the coding system to use when decoding
-coding system to use when decoding the file.  Interactively,
+the file.  Interactively, with a prefix argument, you will be prompted for
-with a prefix argument, you will be prompted for the coding system."
+the coding system."
 (interactive "fFind file read-only other frame: \nZCoding system: ")
 (if codesys
 (let ((coding-system-for-read
 	     (get-coding-system codesys)))
 	(find-file-other-frame filename))
 (setq buffer-read-only t)
 (current-buffer))
 (defun find-alternate-file-other-window (filename &optional codesys)
 "Find file FILENAME as a replacement for the file in the next window.
-This command does not select that window.
+This command does not select that window.  Optional second argument
-Under XEmacs/Mule, optional second argument specifies the
+specifies the coding system to use when decoding the file.  Interactively,
-coding system to use when decoding the file.  Interactively,
 with a prefix argument, you will be prompted for the coding system."
 (interactive
 (save-selected-window
 (other-window 1)
 (let ((file buffer-file-name)
 (and file
 	    (setq file-name (file-name-nondirectory file)
 		  file-dir (file-name-directory file)))
 (list (read-file-name
 	      "Find alternate file: " file-dir nil nil file-name)
-	     (if (and current-prefix-arg (featurep 'mule))
+	     (if current-prefix-arg (read-coding-system "Coding-system: "))))))
-		 (read-coding-system "Coding-system: "))))))
 (if (one-window-p)
 (find-file-other-window filename)
 (save-selected-window
 (other-window 1)
 (find-alternate-file filename codesys))))
 (defun find-alternate-file (filename &optional codesys)
 "Find file FILENAME, select its buffer, kill previous buffer.
 If the current buffer now contains an empty file that you just visited
-\(presumably by mistake), use this command to visit the file you really want.
+\(presumably by mistake), use this command to visit the file you really
-Under XEmacs/Mule, optional second argument specifies the
+want.  Optional second argument specifies the coding system to use when
-coding system to use when decoding the file.  Interactively,
+decoding the file.  Interactively, with a prefix argument, you will be
-with a prefix argument, you will be prompted for the coding system."
+prompted for the coding system."
 (interactive
 (let ((file buffer-file-name)
 	 (file-name nil)
 	 (file-dir nil))
 (and file
 	  (setq file-name (file-name-nondirectory file)
 		file-dir (file-name-directory file)))
 (list (read-file-name
 	    "Find alternate file: " file-dir nil nil file-name)
-	   (if (and current-prefix-arg (featurep 'mule))
+	   (if current-prefix-arg (read-coding-system "Coding-system: ")))))
-	       (read-coding-system "Coding-system: ")))))
 (and (buffer-modified-p) (buffer-file-name)
 ;; (not buffer-read-only)
 (not (yes-or-no-p (format
 			  "Buffer %s is modified; kill anyway? "
 			  (buffer-name))))
 ;; #### ??
 (run-hooks 'after-set-visited-file-name-hooks))
 (defun write-file (filename &optional confirm codesys)
 "Write current buffer into file FILENAME.
-Makes buffer visit that file, and marks it not modified.
+Makes buffer visit that file, and marks it not modified.  If the buffer is
-If the buffer is already visiting a file, you can specify
+already visiting a file, you can specify a directory name as FILENAME, to
-a directory name as FILENAME, to write a file of the same
+write a file of the same old name in that directory.
-old name in that directory.
-If optional second arg CONFIRM is non-nil,
+If optional second arg CONFIRM is non-nil, ask for confirmation for
-ask for confirmation for overwriting an existing file.
+overwriting an existing file.
-Under XEmacs/Mule, optional third argument specifies the
-coding system to use when encoding the file.  Interactively,
+Optional third argument specifies the coding system to use when encoding
-with a prefix argument, you will be prompted for the coding system."
+the file.  Interactively, with a prefix argument, you will be prompted for
+the coding system."
 ;;  (interactive "FWrite file: ")
 (interactive
 (list (if buffer-file-name
 	     (read-file-name "Write file: "
 				 nil nil nil nil)
 	   (read-file-name "Write file: "
 			       (cdr (assq 'default-directory
 					  (buffer-local-variables)))
 			       nil nil (buffer-name)))
 	 t
-	 (if (and current-prefix-arg (featurep 'file-coding))
+	 (if current-prefix-arg (read-coding-system "Coding system: "))))
-	     (read-coding-system "Coding system: "))))
 (and (eq (current-buffer) mouse-grabbed-buffer)
 (error "Can't write minibuffer window"))
 (or (null filename) (string-equal filename "")
 (progn
 	;; If arg is just a directory,
 (defun insert-file (filename &optional codesys)
 "Insert contents of file FILENAME into buffer after point.
 Set mark after the inserted text.
-Under XEmacs/Mule, optional second argument specifies the
+Optional second argument specifies the coding system to use when decoding
-coding system to use when decoding the file.  Interactively,
+the file.  Interactively, with a prefix argument, you will be prompted for
-with a prefix argument, you will be prompted for the coding system.
+the coding system.
-This function is meant for the user to run interactively.
+This function is meant for the user to run interactively.  Don't call it
-Don't call it from programs!  Use `insert-file-contents' instead.
+from programs!  Use `insert-file-contents' instead.  \(Its calling sequence
-\(Its calling sequence is different; see its documentation)."
+is different; see its documentation)."
 (interactive "*fInsert file: \nZCoding system: ")
 (if (file-directory-p filename)
 (signal 'file-error (list "Opening input file" "file is a directory"
 				filename)))
 (let ((tem
 	   (insert-file-contents filename))))
 (push-mark (+ (point) (car (cdr tem))))))
 (defun append-to-file (start end filename &optional codesys)
 "Append the contents of the region to the end of file FILENAME.
-When called from a function, expects three arguments,
+When called from a function, expects three arguments, START, END and
-START, END and FILENAME.  START and END are buffer positions
+FILENAME.  START and END are buffer positions saying what text to write.
-saying what text to write.
+Optional fourth argument specifies the coding system to use when encoding
-Under XEmacs/Mule, optional fourth argument specifies the
+the file.  Interactively, with a prefix argument, you will be prompted for
-coding system to use when encoding the file.  Interactively,
+the coding system."
-with a prefix argument, you will be prompted for the coding system."
 (interactive "r\nFAppend to file: \nZCoding system: ")
 (if codesys
 (let ((buffer-file-coding-system (get-coding-system codesys)))
 	(write-region start end filename t))
 (write-region start end filename t)))
 		   ;; so that we don't try to lock the file.
 		   (let ((buffer-file-name nil))
 		     (or auto-save-p
 			 (unlock-buffer)))
 		   (widen)
-		   (insert-file-contents file-name (not auto-save-p)
+		   ;; When reading in an autosave, it's encoded using
-					 nil nil t)))
+		   ;; `escape-quoted', so we need to use it. (It is always
+		   ;; safe to specify `escape-quoted':
+		   ;;
+		   ;; 1. If file-coding but no Mule, `escape-quoted' is
+;;    aliased to `binary'.
+;; 2. If no file-coding, all coding systems devolve into
+;;    `binary'.
+;; 3. ASCII and ISO8859-1 are encoded the same in both
+;;    `binary' and `escape-quoted', so they will be
+;;     compatible for the most part.)
+		   ;;
+		   ;; Otherwise, use coding-system-for-read if explicitly
+		   ;; given (e.g. the "Revert Buffer with Specified
+		   ;; Encoding" menu entries), or use the coding system
+		   ;; that the file was loaded as.
+		   (let* ((coding-system-for-read
+			   (if auto-save-p 'escape-quoted
+			     (or coding-system-for-read
+				 buffer-file-coding-system-when-loaded)))
+			  ;; If the bfcs wasn't changed from its original
+			  ;; value (other than possible EOL change), then we
+			  ;; should update it for the new coding system.
+			  (should-update-bfcs
+			   (eq (coding-system-base
+				 buffer-file-coding-system-when-loaded)
+			       (coding-system-base
+				buffer-file-coding-system)))
+			  (old-bfcs buffer-file-coding-system)
+			  ;; But if the EOL was changed, match it in the new
+			  ;; value of bfcs.
+			  (adjust-eol
+			   (and should-update-bfcs
+				(not
+				 (eq (get-coding-system
+				      buffer-file-coding-system-when-loaded)
+				     (get-coding-system
+				      buffer-file-coding-system))))))
+		     (insert-file-contents file-name (not auto-save-p)
+					   nil nil t)
+		     (when should-update-bfcs
+		       (setq buffer-file-coding-system old-bfcs)
+		       (set-buffer-file-coding-system
+			(if adjust-eol
+			    (coding-system-base
+			     buffer-file-coding-system-when-loaded)
+			  buffer-file-coding-system-when-loaded)
+			(not adjust-eol))))))
 	       (goto-char (min opoint (point-max)))
 	       ;; Recompute the truename in case changes in symlinks
 	       ;; have changed the truename.
 	       ;XEmacs: already done by insert-file-contents
 	       ;;(setq buffer-file-truename
 		     (insert-directory file-name "-l")))
 		 (yes-or-no-p (format "Recover auto save file %s? " file-name)))
 	       (switch-to-buffer (find-file-noselect file t))
 	       (let ((buffer-read-only nil))
 		 (erase-buffer)
-		 (insert-file-contents file-name nil))
+		 (let ((coding-system-for-read 'escape-quoted))
+		   (insert-file-contents file-name nil)))
 	       (after-find-file nil nil t))
 	      (t (error "Recover-file cancelled.")))))))
 (defun recover-session ()
 "Recover auto save files from a previous Emacs session.
 (unwind-protect
 	(save-excursion
 	  ;; Read in the auto-save-list file.
 	  (set-buffer buffer)
 	  (erase-buffer)
-	  (insert-file-contents file)
+	  (let ((coding-system-for-read 'escape-quoted))
+	    (insert-file-contents file))
 	  ;; Loop thru the text of that file
 	  ;; and get out the names of the files to recover.
 	  (while (not (eobp))
 	    (let (thisfile autofile)
 	      (if (eolp)

Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 771:943eaba38521