(dired-insert-directory): If file-system-info fails,

[gnu-emacs] / lisp / diff.el

diff --git a/lisp/diff.el b/lisp/diff.el
index ea63a2a28ea211f4fcd05a46ea9ebf1cfdbb400a..358ad9a4c24bf96b9cc606b05adaa0e9baa0603c 100644 (file)
--- a/lisp/diff.el
+++ b/lisp/diff.el
@@ -31,7 +31,6 @@
 
 (require 'compile)
 
-;;;###autoload
 (defgroup diff nil
   "Comparing files with `diff'."
   :group 'tools)
@@ -162,11 +161,11 @@ is nil, REGEXP matches only half a section.")
              ;; We have found as many new loci as the user wants,
              ;; or the user wanted a specific diff, and we're past it.
          (setq found-desired t)))
-    (if found-desired
-       (setq compilation-parsing-end (point))
-      ;; Set to point-max, not point, so we don't perpetually
-      ;; parse the last bit of text when it isn't a diff header.
-      (setq compilation-parsing-end (point-max)))
+    (set-marker compilation-parsing-end
+               (if found-desired (point)
+                 ;; Set to point-max, not point, so we don't perpetually
+                 ;; parse the last bit of text when it isn't a diff header.
+                 (point-max)))
     (message "Parsing differences...done"))
   (setq compilation-error-list (nreverse compilation-error-list)))