equal
deleted
inserted
replaced
519 (dolist (line (split-string (hg-chomp (hg-run0 "tags")) "\n")) |
519 (dolist (line (split-string (hg-chomp (hg-run0 "tags")) "\n")) |
520 (setq revs (cons (car (split-string line "\\s-")) revs))) |
520 (setq revs (cons (car (split-string line "\\s-")) revs))) |
521 (completing-read (format "Revision%s (%s): " |
521 (completing-read (format "Revision%s (%s): " |
522 (or prompt "") |
522 (or prompt "") |
523 (or default "tip")) |
523 (or default "tip")) |
524 (map 'list 'cons revs revs) |
524 (mapcar (lambda (x) (cons x x)) revs) |
525 nil |
525 nil |
526 nil |
526 nil |
527 nil |
527 nil |
528 'hg-rev-history |
528 'hg-rev-history |
529 (or default "tip"))) |
529 (or default "tip"))) |