<<LOG-START>>
fix lisp code indentation
<<LOG-END>>
[VERSION] dvc-dev-bzr
Bazaar (bzr) 1.0.0
Emacs : GNU Emacs 23.0.60.7 (x86_64-unknown-linux-gnu, GTK+ Version 2.8.20)
of 2008-03-10 on nyc-qws-005
--
Sam Steingold (http://sds.podval.org/) on Fedora Core release 5 (Bordeaux)
http://pmw.org.il http://openvotingconsortium.org
http://truepeace.org http://mideasttruth.com http://dhimmi.com http://ffii.org
Booze is the answer. I can't remember the question.
=== modified file 'lisp/dvc-core.el'
--- lisp/dvc-core.el 2008-02-20 23:04:34 +0000
+++ lisp/dvc-core.el 2008-03-13 21:25:13 +0000
@@ -1159,25 +1159,25 @@
(toggle-read-only 1)
buffer))
- (previous-revision
- (with-current-buffer buffer
- (let* ((dvc (dvc-revision-get-dvc revision-id))
- (data (nth 0 (dvc-revision-get-data revision-id)))
- (rev-id (list dvc data)))
- (dvc-call "revision-get-previous-revision" file rev-id))
- (set-buffer-modified-p nil)
- (toggle-read-only 1)
- buffer))
-
- (last-revision
- (with-current-buffer buffer
- (dvc-call "revision-get-last-revision"
- file (dvc-revision-get-data revision-id))
- (set-buffer-modified-p nil)
- (toggle-read-only 1)
- buffer))
-
- (t (error "TODO: dvc-revision-get-file-in-buffer type %S" type)))))
+ (previous-revision
+ (with-current-buffer buffer
+ (let* ((dvc (dvc-revision-get-dvc revision-id))
+ (data (nth 0 (dvc-revision-get-data revision-id)))
+ (rev-id (list dvc data)))
+ (dvc-call "revision-get-previous-revision" file rev-id))
+ (set-buffer-modified-p nil)
+ (toggle-read-only 1)
+ buffer))
+
+ (last-revision
+ (with-current-buffer buffer
+ (dvc-call "revision-get-last-revision"
+ file (dvc-revision-get-data revision-id))
+ (set-buffer-modified-p nil)
+ (toggle-read-only 1)
+ buffer))
+
+ (t (error "TODO: dvc-revision-get-file-in-buffer type %S" type)))))
(defun dvc-dvc-revision-nth-ancestor (revision n)
"Default function to get the n-th ancestor of REVISION."
=== modified file 'lisp/dvc-unified.el'
--- lisp/dvc-unified.el 2008-03-08 19:35:34 +0000
+++ lisp/dvc-unified.el 2008-03-11 14:32:04 +0000
@@ -326,7 +326,7 @@
reused.
`default-directory' must be the tree root."
(interactive "P")
- (setq other-frame (Xor other-frame dvc-log-edit-other-frame))
+ (setq other-frame (or other-frame dvc-log-edit-other-frame))
;; Reuse an existing log-edit buffer if possible.
;;
;; If this is invoked from a status or diff buffer,
_______________________________________________
Dvc-dev mailing list
[email protected]
https://mail.gna.org/listinfo/dvc-dev
