comparison lisp/emacs-lisp/bytecomp.el @ 2853:5f56b1f00c57

(byte-compile-file): Don't write output if error.

2852:e80e6e533533

    ;; It is important that input-buffer not be current at this call,
    ;; so that the value of point set in input-buffer
    ;; within byte-compile-from-buffer lingers in that buffer.
    (setq output-buffer (byte-compile-from-buffer input-buffer))
    (or byte-compiler-error-flag
	(kill-buffer input-buffer))
    (save-excursion
      (set-buffer output-buffer)
      (goto-char (point-max))
      (insert "\n")			; aaah, unix.
      (let ((vms-stmlf-recfm t))
	(setq target-file (byte-compile-dest-file filename))
;;	(or byte-compile-overwrite-file
;;	    (condition-case ()
;;		(delete-file target-file)
;;	      (error nil)))
	(if (file-writable-p target-file)
	    (let ((kanji-flag nil))	; for nemacs, from Nakagawa Takayuki
	      (write-region 1 (point-max) target-file))
	  ;; This is just to give a better error message than
	  ;; write-region
	  (signal 'file-error
		  (list "Opening output file"
			(if (file-exists-p target-file)
			    "cannot overwrite file"
			  "directory not writable or nonexistent")
			target-file)))
;;	(or byte-compile-overwrite-file
;;	    (condition-case ()
;;		(set-file-modes target-file (file-modes filename))
;;	      (error nil)))
	)
      (kill-buffer (current-buffer)))
    (if (and byte-compile-generate-call-tree
	     (or (eq t byte-compile-generate-call-tree)
		 (y-or-n-p (format "Report call tree for %s? " filename))))
        (save-excursion
	  (display-call-tree filename)))
    (if load
	(load target-file)))
  t)

;;(defun byte-compile-and-load-file (&optional filename)
;;  "Compile a file of Lisp code named FILENAME into a file of byte code,
;;and then load it.  The output file's name is made by appending \"c\" to 

2853:5f56b1f00c57

    ;; It is important that input-buffer not be current at this call,
    ;; so that the value of point set in input-buffer
    ;; within byte-compile-from-buffer lingers in that buffer.
    (setq output-buffer (byte-compile-from-buffer input-buffer))
    (or byte-compiler-error-flag
	(kill-buffer input-buffer)
	(save-excursion
	  (set-buffer output-buffer)
	  (goto-char (point-max))
	  (insert "\n")			; aaah, unix.
	  (let ((vms-stmlf-recfm t))
	    (setq target-file (byte-compile-dest-file filename))
    ;;	(or byte-compile-overwrite-file
    ;;	    (condition-case ()
    ;;		(delete-file target-file)
    ;;	      (error nil)))
	    (if (file-writable-p target-file)
		(let ((kanji-flag nil))	; for nemacs, from Nakagawa Takayuki
		  (write-region 1 (point-max) target-file))
	      ;; This is just to give a better error message than
	      ;; write-region
	      (signal 'file-error
		      (list "Opening output file"
			    (if (file-exists-p target-file)
				"cannot overwrite file"
			      "directory not writable or nonexistent")
			    target-file)))
    ;;	(or byte-compile-overwrite-file
    ;;	    (condition-case ()
    ;;		(set-file-modes target-file (file-modes filename))
    ;;	      (error nil)))
	    )
	  (kill-buffer (current-buffer)))
	(if (and byte-compile-generate-call-tree
		 (or (eq t byte-compile-generate-call-tree)
		     (y-or-n-p (format "Report call tree for %s? " filename))))
	    (save-excursion
	      (display-call-tree filename)))
	(if load
	    (load target-file))))
  t)

;;(defun byte-compile-and-load-file (&optional filename)
;;  "Compile a file of Lisp code named FILENAME into a file of byte code,
;;and then load it.  The output file's name is made by appending \"c\" to