reindentation

Dependencies

• [2] MAGPFPZB init
• [3] SLZWA7AY another vc api fix

Change contents

• replacement in vc-darcs.el at line 78
  [2.3328]→[2.3328:3360](∅→∅)
  − (require 'xml)

  − (require 'vc))
  [2.3328]

  [2.3360]
  + (require 'xml)

  + (require 'vc))
• replacement in vc-darcs.el at line 105
  [2.4028]→[2.4028:4112](∅→∅)
  − (format "%s <%s>"

  − (user-full-name) user-mail-address)))
  [2.4028]

  [2.4112]
  + (format "%s <%s>"

  + (user-full-name) user-mail-address)))
• replacement in vc-darcs.el at line 169
  [2.6215]→[2.6215:6687](∅→∅)
  − ((or (null rev) (eq rev t) (equal rev "")) nil)

  − ((not off-by-one)

  − (cond

  − ((vc-darcs-hash-p rev) rev)

  − (t (car (last (vc-darcs-changes files "--patch" rev))))))

  − (t

  − (let ((flags

  − (if (vc-darcs-hash-p rev)

  − (list "--from-match" (concat "hash " rev))

  − (list "--from-patch" rev))))

  − (let ((changes (apply #'vc-darcs-changes files flags)))

  − (and (cdr changes) (car (last changes 2))))))))
  [2.6215]

  [2.6687]
  + ((or (null rev) (eq rev t) (equal rev "")) nil)

  + ((not off-by-one)

  + (cond

  + ((vc-darcs-hash-p rev) rev)

  + (t (car (last (vc-darcs-changes files "--patch" rev))))))

  + (t

  + (let ((flags

  + (if (vc-darcs-hash-p rev)

  + (list "--from-match" (concat "hash " rev))

  + (list "--from-patch" rev))))

  + (let ((changes (apply #'vc-darcs-changes files flags)))

  + (and (cdr changes) (car (last changes 2))))))))
• replacement in vc-darcs.el at line 193
  [2.7097]→[2.7097:7137](∅→∅)
  − (list "--to-patch" rev))))
  [2.7097]

  [2.7137]
  + (list "--to-patch" rev))))
• replacement in vc-darcs.el at line 207
  [2.7464]→[2.7464:8433](∅→∅)
  − ((vc-darcs-special-file-p file)

  − ;; If vc-directory-exclusion-list is set incorrectly, vc-dired will

  − ;; query us for all the files under _darcs. Get rid of them quickly.

  − nil)

  − (t

  − (when (vc-darcs-root file)

  − (let* ((file (expand-file-name file))

  − (root (vc-darcs-root file))

  − (default-directory (file-name-directory file)))

  − (with-temp-buffer

  − (catch 'found

  − (condition-case nil

  − (vc-do-command t nil vc-darcs-program-name

  − nil "show" "files")

  − (error (throw 'found nil)))

  − (goto-char (point-min))

  − (while (looking-at "[^\n]+")

  − ;; Darcs always prints relative to the root

  − (let ((file2 (expand-file-name (match-string 0) root)))

  − (when (equal file2 file)

  − (throw 'found t))

  − (forward-line)))

  − nil)))))))
  [2.7464]

  [2.8433]
  + ((vc-darcs-special-file-p file)

  + ;; If vc-directory-exclusion-list is set incorrectly, vc-dired will

  + ;; query us for all the files under _darcs. Get rid of them quickly.

  + nil)

  + (t

  + (when (vc-darcs-root file)

  + (let* ((file (expand-file-name file))

  + (root (vc-darcs-root file))

  + (default-directory (file-name-directory file)))

  + (with-temp-buffer

  + (catch 'found

  + (condition-case nil

  + (vc-do-command t nil vc-darcs-program-name

  + nil "show" "files")

  + (error (throw 'found nil)))

  + (goto-char (point-min))

  + (while (looking-at "[^\n]+")

  + ;; Darcs always prints relative to the root

  + (let ((file2 (expand-file-name (match-string 0) root)))

  + (when (equal file2 file)

  + (throw 'found t))

  + (forward-line)))

  + nil)))))))
• replacement in vc-darcs.el at line 236
  [2.8606]→[2.8606:8690](∅→∅)
  − ((equal "R" letter) 'removed)

  − ((equal "A" letter) 'added)

  − (t 'edited)))
  [2.8606]

  [2.8690]
  + ((equal "R" letter) 'removed)

  + ((equal "A" letter) 'added)

  + (t 'edited)))
• replacement in vc-darcs.el at line 248
  [2.8925]→[2.8925:9558](∅→∅)
  − ((looking-at "No changes")

  − (if (vc-darcs-registered file) 'up-to-date 'unregistered))

  − ((looking-at "\\([A-Z]\\)!? ")

  − (vc-darcs-parse-summary (match-string 1)))

  − ((looking-at " * \\([^ \n]+\\) *-> *\\([^ \n]+\\)")

  − ;; The paths printed by Darcs are relative to the root

  − (let* ((root (vc-darcs-root file))

  − (f (expand-file-name file))

  − (f1 (expand-file-name (match-string 1) root))

  − (f2 (expand-file-name (match-string 2) root)))

  − (cond

  − ((equal f f1) 'removed)

  − ((equal f f2) 'added)

  − (t nil))))

  − (t nil))))
  [2.8925]

  [2.9558]
  + ((looking-at "No changes")

  + (if (vc-darcs-registered file) 'up-to-date 'unregistered))

  + ((looking-at "\\([A-Z]\\)!? ")

  + (vc-darcs-parse-summary (match-string 1)))

  + ((looking-at " * \\([^ \n]+\\) *-> *\\([^ \n]+\\)")

  + ;; The paths printed by Darcs are relative to the root

  + (let* ((root (vc-darcs-root file))

  + (f (expand-file-name file))

  + (f1 (expand-file-name (match-string 1) root))

  + (f2 (expand-file-name (match-string 2) root)))

  + (cond

  + ((equal f f1) 'removed)

  + ((equal f f2) 'added)

  + (t nil))))

  + (t nil))))
• replacement in vc-darcs.el at line 286
  [2.10395]→[2.10395:10687](∅→∅)
  − (doit #'(lambda (file status)

  − ;; The paths printed by Darcs are relative to the root

  − (let ((path (file-relative-name

  − (expand-file-name file root))))

  − (unless (file-directory-p path)

  − (push (list path status nil) l)

  − (setq files (delete path files)))))))
  [2.10395]

  [2.10687]
  + (doit #'(lambda (file status)

  + ;; The paths printed by Darcs are relative to the root

  + (let ((path (file-relative-name

  + (expand-file-name file root))))

  + (unless (file-directory-p path)

  + (push (list path status nil) l)

  + (setq files (delete path files)))))))
• replacement in vc-darcs.el at line 296
  [2.10751]→[2.10751:11040](∅→∅)
  − ((looking-at "\\([A-Z]\\)!? \\([^ \n]+\\)")

  − (funcall doit (match-string 2)

  − (vc-darcs-parse-summary (match-string 1))))

  − ((looking-at " * \\([^ \n]+\\) *-> *\\([^ \n]+\\)")

  − (funcall doit (match-string 1) 'removed)

  − (funcall doit (match-string 2) 'added)))

  − (forward-line))
  [2.10751]

  [2.11040]
  + ((looking-at "\\([A-Z]\\)!? \\([^ \n]+\\)")

  + (funcall doit (match-string 2)

  + (vc-darcs-parse-summary (match-string 1))))

  + ((looking-at " * \\([^ \n]+\\) *-> *\\([^ \n]+\\)")

  + (funcall doit (match-string 1) 'removed)

  + (funcall doit (match-string 2) 'added)))

  + (forward-line))
• replacement in vc-darcs.el at line 339
  [2.12139]→[2.12139:12187](∅→∅)
  − (vc-darcs-dir-header "Repository :" root)))
  [2.12139]

  [2.12187]
  + (vc-darcs-dir-header "Repository :" root)))
• replacement in vc-darcs.el at line 376
  [2.13450]→[2.13450:13497](∅→∅)
  − (format "darcs/%s" (vc-state file)))))
  [2.13450]

  [2.13497]
  + (format "darcs/%s" (vc-state file)))))
• replacement in vc-darcs.el at line 396
  [2.14223]→[2.14223:14258](∅→∅)
  − comment))
  [2.14223]

  [2.14258]
  + comment))
• replacement in vc-darcs.el at line 399
  [2.14334]→[2.14334:14358](∅→∅)
  − "")))
  [2.14334]

  [2.14358]
  + "")))
• replacement in vc-darcs.el at line 433
  [2.15683]→[2.15683:16103](∅→∅)
  − (require 'add-log)

  − (set (make-local-variable 'log-view-per-file-logs) nil)

  − (set (make-local-variable 'log-view-file-re) "\\`a\\`")

  − (set (make-local-variable 'log-view-message-re)

  − "^ \\* \\(.+\\)")

  − (set (make-local-variable 'log-view-font-lock-keywords)

  − '(("^\\([A-Z][a-z][a-z] .*[0-9]\\) \\([^<>]+\\) \\(<[^<>]+>\\)"

  − (1 'change-log-date)

  − (2 'change-log-name)

  − (3 'change-log-email))))

  − )
  [2.15683]

  [2.16103]
  + (require 'add-log)

  + (set (make-local-variable 'log-view-per-file-logs) nil)

  + (set (make-local-variable 'log-view-file-re) "\\`a\\`")

  + (set (make-local-variable 'log-view-message-re)

  + "^ \\* \\(.+\\)")

  + (set (make-local-variable 'log-view-font-lock-keywords)

  + '(("^\\([A-Z][a-z][a-z] .*[0-9]\\) \\([^<>]+\\) \\(<[^<>]+>\\)"

  + (1 'change-log-date)

  + (2 'change-log-name)

  + (3 'change-log-email))))

  + )
• replacement in vc-darcs.el at line 448
  [2.16225]→[2.16225:16424](∅→∅)
  − ((equal rev (car (vc-darcs-changes log-view-vc-fileset "--max-count" "1")))

  − (goto-char (point-min))

  − (re-search-forward log-view-message-re)

  − (beginning-of-line))

  − (t

  − nil)))
  [2.16225]

  [2.16424]
  + ((equal rev (car (vc-darcs-changes log-view-vc-fileset "--max-count" "1")))

  + (goto-char (point-min))

  + (re-search-forward log-view-message-re)

  + (beginning-of-line))

  + (t

  + nil)))
• replacement in vc-darcs.el at line 462
  [2.16852]→[2.16852:16973](∅→∅)
  − (append

  − (and start-hash (list "--to-hash" start-hash))

  − (and limit (list "--last" (format "%d" limit)))))))
  [2.16852]

  [2.16973]
  + (append

  + (and start-hash (list "--to-hash" start-hash))

  + (and limit (list "--last" (format "%d" limit)))))))
• replacement in vc-darcs.el at line 495
  [2.18112]→[2.18112:18468](∅→∅)
  − (with-temp-buffer

  − (vc-do-command t 0 vc-darcs-program-name file

  − "changes" "--xml"

  − "--from-match" (concat "hash " rev)

  − "--to-match" (concat "hash " rev))

  − (xml-parse-region 1 (point-max))))

  − (patch

  − (if (not (eq 'changelog (caar xml)))

  − (error "Unexpected output from darcs changes --xml")

  − (nth 3 (car xml)))))
  [2.18112]

  [2.18468]
  + (with-temp-buffer

  + (vc-do-command t 0 vc-darcs-program-name file

  + "changes" "--xml"

  + "--from-match" (concat "hash " rev)

  + "--to-match" (concat "hash " rev))

  + (xml-parse-region 1 (point-max))))

  + (patch

  + (if (not (eq 'changelog (caar xml)))

  + (error "Unexpected output from darcs changes --xml")

  + (nth 3 (car xml)))))
• replacement in vc-darcs.el at line 519
  [2.19062]→[2.19062:19263](∅→∅)
  − (goto-char (point-min))

  − (while (looking-at "^\\([-0-9a-f]+\\)\\.gz | \\(.*\\)$")

  − (push (cons (match-string 1) (match-string 2)) output)

  − (forward-line 1))

  − (nreverse output)))))
  [2.19062]

  [2.19263]
  + (goto-char (point-min))

  + (while (looking-at "^\\([-0-9a-f]+\\)\\.gz | \\(.*\\)$")

  + (push (cons (match-string 1) (match-string 2)) output)

  + (forward-line 1))

  + (nreverse output)))))
• replacement in vc-darcs.el at line 526
  [2.19317]→[2.19317:19518](∅→∅)
  − (and (fboundp 'make-progress-reporter)

  − (make-progress-reporter "Annotating..."

  − 1 (length data))))

  − (count 0)

  − (now (vc-annotate-convert-time (current-time)))

  − (cache '()))
  [2.19317]

  [2.19518]
  + (and (fboundp 'make-progress-reporter)

  + (make-progress-reporter "Annotating..."

  + 1 (length data))))

  + (count 0)

  + (now (vc-annotate-convert-time (current-time)))

  + (cache '()))
• replacement in vc-darcs.el at line 533
  [2.19543]→[2.19543:20995](∅→∅)
  − (let* ((rev (car e))

  − (line (cdr e))

  − (alist (or (cdr (assoc rev cache))

  − (let ((a (vc-darcs-alist-from-rev file rev)))

  − (push (cons rev a) cache)

  − a)))

  − (author (cdr (assoc 'author alist)))

  − (date (cdr (assoc 'date alist)))

  − (year (substring date 0 4))

  − (month (substring date 4 6))

  − (day (substring date 6 8))

  − (hour (substring date 8 10))

  − (min (substring date 10 12))

  − (sec (substring date 12 14))

  − (time (vc-annotate-convert-time

  − (encode-time

  − (vc-darcs-parse-integer sec)

  − (vc-darcs-parse-integer min)

  − (vc-darcs-parse-integer hour)

  − (vc-darcs-parse-integer day)

  − (vc-darcs-parse-integer month)

  − (vc-darcs-parse-integer year))))

  − (begin (point)))

  − (cond

  − ((string-match "<\\([^ <>@]*\\)@.*>" author)

  − (setq author (match-string 1 author)))

  − ((string-match "[^ <>@]*" author)

  − (setq author (match-string 0 author))))

  − (insert (format "%-7s "

  − (if (> (length author) 7)

  − (substring author 0 7)

  − author)))

  − (insert

  − (if (> (- now time) 0.9)

  − (format "%s/%s/%s " day month (substring year 2 4))

  − (format "%s:%s:%s " hour min sec)))

  − (insert line)

  − (insert "\n")

  − (add-text-properties

  − begin (point)

  − (list 'vc-darcs-annotate (cons rev time))))

  − (setq count (+ count 1))

  − (when reporter

  − (progress-reporter-update reporter count)))

  − (when reporter

  − (progress-reporter-done reporter))))))
  [2.19543]

  [2.20995]
  + (let* ((rev (car e))

  + (line (cdr e))

  + (alist (or (cdr (assoc rev cache))

  + (let ((a (vc-darcs-alist-from-rev file rev)))

  + (push (cons rev a) cache)

  + a)))

  + (author (cdr (assoc 'author alist)))

  + (date (cdr (assoc 'date alist)))

  + (year (substring date 0 4))

  + (month (substring date 4 6))

  + (day (substring date 6 8))

  + (hour (substring date 8 10))

  + (min (substring date 10 12))

  + (sec (substring date 12 14))

  + (time (vc-annotate-convert-time

  + (encode-time

  + (vc-darcs-parse-integer sec)

  + (vc-darcs-parse-integer min)

  + (vc-darcs-parse-integer hour)

  + (vc-darcs-parse-integer day)

  + (vc-darcs-parse-integer month)

  + (vc-darcs-parse-integer year))))

  + (begin (point)))

  + (cond

  + ((string-match "<\\([^ <>@]*\\)@.*>" author)

  + (setq author (match-string 1 author)))

  + ((string-match "[^ <>@]*" author)

  + (setq author (match-string 0 author))))

  + (insert (format "%-7s "

  + (if (> (length author) 7)

  + (substring author 0 7)

  + author)))

  + (insert

  + (if (> (- now time) 0.9)

  + (format "%s/%s/%s " day month (substring year 2 4))

  + (format "%s:%s:%s " hour min sec)))

  + (insert line)

  + (insert "\n")

  + (add-text-properties

  + begin (point)

  + (list 'vc-darcs-annotate (cons rev time))))

  + (setq count (+ count 1))

  + (when reporter

  + (progress-reporter-update reporter count)))

  + (when reporter

  + (progress-reporter-done reporter))))))
• replacement in vc-darcs.el at line 607
  [2.22081]→[2.22081:22348](∅→∅)
  − (open-instead

  − (find-alternate-file candidate))

  − (t

  − (setq buffer-read-only t)

  − (push '(:propertize "_DARCS-FILE:" face font-lock-warning-face)

  − mode-line-buffer-identification)))))))
  [2.22081]

  [2.22348]
  + (open-instead

  + (find-alternate-file candidate))

  + (t

  + (setq buffer-read-only t)

  + (push '(:propertize "_DARCS-FILE:" face font-lock-warning-face)

  + mode-line-buffer-identification)))))))