Hi All, It does not seem to be possible to interactively set the last-n parameter for the unified dvc-log in its current form. The attached patch allows this -- useful for very projects with long histories (like emacs!).
Best, Bojan ------------------------------------------------------------ revno: 575 committer: Bojan Nikolic <[email protected]> branch nick: fixes timestamp: Tue 2010-07-13 15:57:43 +0100 message: Modify dvc-log so that a positive numerical prefix is interpreted as the last-n argument and only negative numerical prefix will be interpret as a request to prompt for the tree.
# Bazaar merge directive format 2 (Bazaar 0.90) # revision_id: [email protected] # target_branch: file:///home/bnikolic/work/dvc/trunk/ # testament_sha1: aa76f0aa0a97c931b2322534ac1a6c9cf18bfb16 # timestamp: 2010-07-15 13:31:29 +0100 # base_revision_id: [email protected] # # Begin patch === modified file 'lisp/dvc-unified.el' --- lisp/dvc-unified.el 2009-09-01 08:19:31 +0000 +++ lisp/dvc-unified.el 2010-07-13 14:57:43 +0000 @@ -284,15 +284,22 @@ ;;;###autoload (defun dvc-log (&optional path last-n) "Display the brief log for PATH (a file-name; default current -buffer file name; nil means entire tree; prefix arg means prompt -for tree), LAST-N entries (default `dvc-log-last-n'; all if -nil). Use `dvc-changelog' for the full log." - (interactive (list (if current-prefix-arg nil (buffer-file-name)) - dvc-log-last-n)) - (let ((default-directory - (dvc-read-project-tree-maybe "DVC tree root (directory): " - (when path (expand-file-name path)) - (not current-prefix-arg)))) +buffer file name; nil means entire tree; negative prefix arg +means prompt for tree depending on value of +dvc-read-project-tree-mode), LAST-N entries (default +`dvc-log-last-n'; all if nil, positive prefix value means that +many entries). Use `dvc-changelog' for the full log." + (interactive "i\nP") + (let* ((allentries (or (eq last-n nil) + (< (prefix-numeric-value last-n) 0))) + (last-n (prefix-numeric-value last-n)) + (path (if (< last-n 0) + nil (buffer-file-name))) + (last-n (if allentries nil last-n)) + (default-directory + (dvc-read-project-tree-maybe "DVC tree root (directory): " + (when path (expand-file-name path)) + path))) ;; Since we have bound default-directory, we don't need to pass ;; 'root' to the back-end. (dvc-call "dvc-log" path last-n)) # Begin bundle IyBCYXphYXIgcmV2aXNpb24gYnVuZGxlIHY0CiMKQlpoOTFBWSZTWaUSVgcAAeRfgCAwUff//34H TwT////wUATinu7C7s3WxS7dwaEohNCYTQMj1U/Ipmp6PJT1DRmiaPSPU9Q0CSJMJiTFDTEnqmab VDHqg9R6gYjQNG9QYiakmmQ/VNNGmmmg0aGJiNDIZqANBzTEyZNGEwTE0wCYBDBGBGASSAgjajCU 8KemmhBo0DTahoAAKAwFVRQdInqoabLmr6eZxhK/PGlgqTrqig3pa8Dyta1Z1of9eObQWSi9Uh5X Pp5dG0S9ORzbpeMjZhF7CitVUbqX8FEUzWGm/CJXdsmyuqbfWz1jZ+dLZOyXxZB2+U56XxYrPWN+ HxjNmGKSbTji+ms1yy1rKPLa+TN7LzVo2gYRao0zM8IzNQtVl+LLdJVaN3qsfn9BG67W0KiKoxmi pidyiB8vdTKxCzrk7VcKuV7mZ9kH4v2pjclQle45XxOTbskpeMesU0DjRwKiREZVypXfZBSSqTuK Wsyxhu8aOFANZHLvmZAWVEBfQm5dGoaCjJAsaIe8H7YFg5isic8WTOI64d+yza+Qvb4faRVhYXqZ r2ejGb4mwoYjROSFcKwysksFhhowqczweV6RQjmfbMWd5bMcSI2VX9hiZDionXG15gyZ5cKCYmUH SFIqOoiXGFg4p25BxFjoaI2eTsVWZ9pAwHiZh4w4wVFXf4NBaKYyYywfE1QNRimLD9ymgerNItJn aaYZ6rzC6tEV+V+NLG70qHVftK9ZHPK7NrLqloZECcrI+vbM1aJEoRuMcToL84FxwOKcFE8VPg8p jN2FkRCY9PmMNd4YVEzuSyNNdykqY+U/VPjarT8P74IF+x3BjPy1iUyYwDkbTpv33Vhwc5Gyvc3Q NEZ/kB61WV9Lrp5YCiH4oJRbxTkQ5lSH3cjcfUPtIGAl5bjxHA6InLA7EVwjOq7WwNYjECBF4TFP cZCYcVECB6ju6I9fO7mSyoQY0DEx45adZnLiSgm2FqEZb3nepiLCmj2j5sj8ojv9IrseqC4bYWX5 90UVKNeM0OSl9eMd+ESg0174WlYHfrU8ee1z1lY+nm14hoZwKLgeYiVb+CxIC7mvJJhwtB0K644X S5tabSM9FlpvfgQ1RNdgOLQvDvYgbmsztNMBmcoc81sXUajadReRQ8gPDkTLhl35cDpdYLt3vS66 sYaRzG6o8go/GXaHgcQZ0cb+59FhIXqp9DDJMrdEb1AJnnMeJNN+XApiumS8oXVVwG2wfQCch+oC kTjJHozpQiwtgjUb0thkG5BMZmebnDFSvKaW3spCfHElcDhabXYal2rwWBxtMOGySptijGLYo+zf kWp7NW6HDkCJM6mzAIuCP5jJSFYwaAIiQcSi1diUUSipk0wDMiZEeoa9uvYlgqf11eoOVEoGsCRh RGqJgxoltKUhwYm1qCmcyZJd6whBGzrzjOFQYtE7mCZodxAvcapzVXFwW8UMm8zp0MEN1hjsF4ai oLzubHzzZQjZropiGaivQoWDGThMJMMhinflByGMFiM286YG9WOYqgWIRFRZRqrIG+mp+bcUyN0r saU1NXwUoIO89QvHCJSxNqOjTBOtCcwdF+I5K+shsKBhFmIHcMOlNlJx7qfcWYG3nSl0lxhaGe4o 4oZgKIvU05wEexaLxF+HKtEqcEy263fd2uO3WUJ/MXckU4UJClElYHA=
_______________________________________________ Dvc-dev mailing list [email protected] https://mail.gna.org/listinfo/dvc-dev
