sellout/vc-pijul - Change ITWH4477T66JDQJCUFZBL2RJJHY7ZCY2V7FBUVSSGX7NELX6JMDAC

reindentation

Created by Libor Capak on December 25, 2015

ITWH4477T66JDQJCUFZBL2RJJHY7ZCY2V7FBUVSSGX7NELX6JMDAC

Dependencies

[2] MAGPFPZBNCBIGVYPCCP25YIAT654YY4ZRN5TIPHLCPN2X3VIWCEQC

In channels

main

Change contents

Replacement in vc-darcs.el at line 78 [2.4]
B:BD[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.4]

B:BD[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.4]

B:BD[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.4]

B:BD[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.4]

B:BD[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.4]

B:BD[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.4]

B:BD[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.4]

B:BD[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.4]

B:BD[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.4]

B:BD[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.4]

B:BD[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.4]

B:BD[2.14223] → [2.14223:14258]

                         comment))

[2.14223]

[2.14258]

                       comment))

Replacement in vc-darcs.el at line 399 [2.4]
B:BD[2.14334] → [2.14334:14358]
```
                  "")))
```
[2.14334]
[2.14358]
```
                "")))
```

Replacement in vc-darcs.el at line 433 [2.4]

B:BD[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.4]

B:BD[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.4]

B:BD[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.4]

B:BD[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.4]

B:BD[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.4]

B:BD[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.4]

B:BD[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.4]

B:BD[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)))))))