* finder.el: Bind finder-exit to 'q', not 'x'; the former is the

[gnu-emacs] / lisp / diff.el

diff --git a/lisp/diff.el b/lisp/diff.el
index 4149cf363ce436857f995c6ac9c3aba36bcfc302..0c474672b7016d56399d772f208e66c46f1ada30 100644 (file)
--- a/lisp/diff.el
+++ b/lisp/diff.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1992 Free Software Foundation, Inc.
 
-;; Keyword: unix, tools
+;; Keywords: unix, tools
 
 ;; This file is part of GNU Emacs.
 
@@ -20,10 +20,17 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
+;; This package helps you explore differences between files, using the
+;; UNIX command diff(1).  The commands are `diff' and `diff-backup'.
+;; You can specify options with `diff-switches'.
+
 ;;; Code:
 
 (require 'compile)
 
+;;; This is duplicated in vc.el.
 (defvar diff-switches "-c"
   "*A string or list of strings specifying switches to be be passed to diff.")
 
@@ -68,7 +75,7 @@ is nil, REGEXP matches only half a section.")
   (message "Parsing differences...")
 
   ;; Don't reparse diffs already seen at last parse.
-  (goto-char compilation-parsing-end)
+  (if compilation-parsing-end (goto-char compilation-parsing-end))
 
   ;; Construct in REGEXP a regexp composed of all those in dired-regexp-alist.
   (let ((regexp (mapconcat (lambda (elt)
@@ -261,4 +268,6 @@ The backup file is the first file given to `diff'."
                      (> (backup-extract-version fn1)
                         (backup-extract-version fn2))))))))))
 
+(provide 'diff)
+
 ;;; diff.el ends here