--- a/contrib/mercurial.el Mon Aug 06 20:25:50 2007 +0200
+++ b/contrib/mercurial.el Tue Aug 07 10:24:33 2007 +0200
@@ -426,7 +426,7 @@
(if (or (not default) current-prefix-arg)
(string-to-number
(eval (list* 'read-string
- (or prompt "")
+ (or prompt "")
(if default (cons (format "%d" default) nil) nil))))
default)))
@@ -565,7 +565,7 @@
(when buf
(set-buffer buf)
(hg-mode-line-internal status parents)))))))
-
+
;;; View mode bits.
@@ -588,7 +588,7 @@
(setq hg-view-mode t)
(setq truncate-lines t)
(when file-name
- (setq hg-view-file-name
+ (setq hg-view-file-name
(hg-abbrev-file-name file-name))))
(defun hg-file-status (file)
@@ -703,7 +703,7 @@
(added . "a")
(deleted . "!")
(modified . "m"))))))))
-
+
(defun hg-mode-line (&optional force)
"Update the modeline with the current status of a file.
An update occurs if optional argument FORCE is non-nil,
@@ -1000,7 +1000,7 @@
;; none revision is specified explicitly
(none (and (not rev1) (not rev2)))
;; only one revision is specified explicitly
- (one (or (and (or (equal rev1 rev2) (not rev2)) rev1)
+ (one (or (and (or (equal rev1 rev2) (not rev2)) rev1)
(and (not rev1) rev2)))
diff)
(hg-view-output ((cond
@@ -1012,7 +1012,7 @@
(format "Mercurial: Diff from rev %s to %s of %s"
rev1 rev2 a-path))))
(cond
- (none
+ (none
(call-process (hg-binary) nil t nil "diff" path))
(one
(call-process (hg-binary) nil t nil "diff" "-r" one path))
@@ -1100,7 +1100,7 @@
(limit (format "%d" (or log-limit hg-log-limit))))
(hg-view-output ((if (equal r1 r2)
(format "Mercurial: Log of rev %s of %s" rev1 a-path)
- (format
+ (format
"Mercurial: at most %s log(s) from rev %s to %s of %s"
limit r1 r2 a-path)))
(eval (list* 'call-process (hg-binary) nil t nil
@@ -1123,7 +1123,7 @@
(interactive (list (hg-read-file-name " to log")
(hg-read-rev " to start with"
"tip")
- (hg-read-rev " to end with"
+ (hg-read-rev " to end with"
"0")
(hg-read-number "Output limited to: "
hg-log-limit)))