comparison lisp/diff-mode.el @ 32063:3fb2a3b13c5e

(diff-test-hunk): Backout previous change. Fix doc string. (diff-apply-hunk): Don't return a value.

32062:3c0a00f2233a

;; Copyright (C) 1998, 1999, 2000  Free Software Foundation, Inc.

;; Author: Stefan Monnier <[e-mail]>
;; Keywords: patch diff
;; Revision: $Id: diff-mode.el,v 1.24 2000/09/29 18:05:27 monnier Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

By default, the new source file is patched, but if the variable
`diff-jump-to-old-file-flag' is non-nil, then the old source file is
patched instead (some commands, such as `diff-goto-source' can change
the value of this variable when given an appropriate prefix argument).

With a prefix argument, REVERSE the hunk.

Return value is t if the hunk was sucessfully applied, `reversed' if the
hunk was applied backwards and nil if the hunk wasn't applied."
  (interactive "P")
  (destructuring-bind (buf line-offset pos old new &optional switched)
      (diff-find-source-location nil reverse)
    (cond
     ((null line-offset) (error "Can't find the text to patch"))
     ((and switched
	   ;; A reversed patch was detected, perhaps apply it in reverse
	   (not (save-window-excursion
		  (pop-to-buffer buf)
		  (goto-char (+ pos (cdr old)))
		  (y-or-n-p
		   (if reverse
		       "Hunk hasn't been applied yet; apply it now? "
		     "Hunk has already been applied; undo it? ")))))
      (message "(Nothing done)")
      nil)
     (t
      (let ((reversed (diff-xor switched reverse)))
	;; Apply the hunk
	(with-current-buffer buf
	  (goto-char pos)
	  (delete-char (length (car old)))
	  (insert (car new)))
	;; Display BUF in a window
	(set-window-point (display-buffer buf) (+ pos (cdr new)))
	(diff-hunk-status-msg line-offset reversed nil)
	(when diff-advance-after-apply-hunk
	  (diff-hunk-next))
	(if reversed 'reversed t))))))


(defun diff-test-hunk (&optional reverse)
  ;; FIXME: is `reverse' ever useful ???
  "See whether it's possible to apply the current hunk.
With a prefix argument, try to REVERSE the hunk.
Returns t if the hunk can be applied, `reversed' if it's already
applied and nil if it can't be found."
  (interactive "P")
  (destructuring-bind (buf line-offset pos src dst &optional switched)
      (diff-find-source-location nil reverse)
    (set-window-point (display-buffer buf) (+ pos (cdr src)))
    (let ((reversed (diff-xor switched reverse)))
      (diff-hunk-status-msg line-offset (diff-xor reverse switched) t)
      (if reversed 'reversed t))))


(defun diff-goto-source (&optional other-file)
  "Jump to the corresponding source line.
`diff-jump-to-old-file-flag' (or its opposite if the OTHER-FILE prefix arg

32063:3fb2a3b13c5e

;; Copyright (C) 1998, 1999, 2000  Free Software Foundation, Inc.

;; Author: Stefan Monnier <[e-mail]>
;; Keywords: patch diff
;; Revision: $Id: diff-mode.el,v 1.25 2000/10/02 03:46:26 miles Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

By default, the new source file is patched, but if the variable
`diff-jump-to-old-file-flag' is non-nil, then the old source file is
patched instead (some commands, such as `diff-goto-source' can change
the value of this variable when given an appropriate prefix argument).

With a prefix argument, REVERSE the hunk."
  (interactive "P")
  (destructuring-bind (buf line-offset pos old new &optional switched)
      (diff-find-source-location nil reverse)
    (cond
     ((null line-offset)
      (error "Can't find the text to patch"))
     ((and switched
	   ;; A reversed patch was detected, perhaps apply it in reverse
	   (not (save-window-excursion
		  (pop-to-buffer buf)
		  (goto-char (+ pos (cdr old)))
		  (y-or-n-p
		   (if reverse
		       "Hunk hasn't been applied yet; apply it now? "
		     "Hunk has already been applied; undo it? ")))))
      (message "(Nothing done)"))
     (t
      ;; Apply the hunk
      (with-current-buffer buf
	(goto-char pos)
	(delete-char (length (car old)))
	(insert (car new)))
      ;; Display BUF in a window
      (set-window-point (display-buffer buf) (+ pos (cdr new)))
      (diff-hunk-status-msg line-offset (diff-xor switched reverse) nil)
      (when diff-advance-after-apply-hunk
	(diff-hunk-next))))))


(defun diff-test-hunk (&optional reverse)
  ;; FIXME: is `reverse' ever useful ???
  "See whether it's possible to apply the current hunk.
With a prefix argument, try to REVERSE the hunk."
  (interactive "P")
  (destructuring-bind (buf line-offset pos src dst &optional switched)
      (diff-find-source-location nil reverse)
    (set-window-point (display-buffer buf) (+ pos (cdr src)))
    (diff-hunk-status-msg line-offset (diff-xor reverse switched) t)))


(defun diff-goto-source (&optional other-file)
  "Jump to the corresponding source line.
`diff-jump-to-old-file-flag' (or its opposite if the OTHER-FILE prefix arg