diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2008-06-16 08:55:56 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2008-06-16 08:55:56 +0000 |
| commit | def61be2348d06f8e43b615aeb4f061dd2b932ef (patch) | |
| tree | 00caab9ab627d38cdc529d771f4587346ff4f898 /lisp/vc-svn.el | |
| parent | 5e634ec9b742cc1dedcc552b36a9f3804b5c88b9 (diff) | |
| download | emacs-def61be2348d06f8e43b615aeb4f061dd2b932ef.tar.gz | |
(log-view-per-file-logs): Pacify byte compiler.
Diffstat (limited to 'lisp/vc-svn.el')
| -rw-r--r-- | lisp/vc-svn.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 9f116a3c964..a311c5e1cae 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -177,7 +177,7 @@ RESULT is a list of conses (FILE . STATE) for directory DIR." "Generate extra status headers for a Subversion working copy." (vc-svn-command "*vc*" 0 nil "info") (let ((repo - (save-excursion + (save-excursion (and (progn (set-buffer "*vc*") (goto-char (point-min)) @@ -407,7 +407,7 @@ or svn+ssh://." (progn (unless (vc-do-command "*vc*" 0 "svnadmin" nil - "setlog" "--bypass-hooks" directory + "setlog" "--bypass-hooks" directory "-r" rev (format "%s" tempfile)) (error "Log edit failed")) (delete-file tempfile)) @@ -425,6 +425,8 @@ or svn+ssh://." ;;; History functions ;;; +(defvar log-view-per-file-logs) + (define-derived-mode vc-svn-log-view-mode log-view-mode "SVN-Log-View" (require 'add-log) (set (make-local-variable 'log-view-per-file-logs) nil)) |