xemacs-beta: lisp/files.el comparison

Import from CVS: tag r21-2-25

comparison

equal deleted inserted replaced

-:892ca416f0fb
+:9d177e8d4150
 	       (format "%s has changed since visited or saved.  Save anyway? "
 		       (file-name-nondirectory buffer-file-name)))
 	      (error "Save not confirmed"))
 	  (save-restriction
 	    (widen)
-	    (and (> (point-max) 1)
-		 (/= (char-after (1- (point-max))) ?\n)
+	    ;; Add final newline if required.  See `require-final-newline'.
-		 (not (and (eq selective-display t)
+	    (when (and (not (eq (char-before (point-max)) ?\n)) ; common case
-			   (= (char-after (1- (point-max))) ?\r)))
+		       (char-before (point-max))                ; empty buffer?
-		 (or (eq require-final-newline t)
+		       (not (and (eq selective-display t)
-		     (and require-final-newline
+				 (eq (char-before (point-max)) ?\r)))
-			  (y-or-n-p
+		       (or (eq require-final-newline t)
-			   (format "Buffer %s does not end in newline.  Add one? "
+			   (and require-final-newline
-				   (buffer-name)))))
+				(y-or-n-p
-		 (save-excursion
+				 (format "Buffer %s does not end in newline.  Add one? "
-		   (goto-char (point-max))
+					 (buffer-name))))))
-		   (insert ?\n)))
+	      (save-excursion
-	    ;;
+		(goto-char (point-max))
+		(insert ?\n)))
 	    ;; Run the write-file-hooks until one returns non-null.
 	    ;; Bind after-save-hook to nil while running the
 	    ;; write-file-hooks so that if this function is called
 	    ;; recursively (from inside a write-file-hook) the
 	    ;; after-hooks will only get run once (from the

Mercurial > hg > xemacs-beta