(log-view-per-file-logs): Pacify byte compiler.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 16318fa55be4e2af66ff965007680962cc285f4b..6fcc5e42621c430c4bc9bc7800ce665fd4e868de 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-16  Juanma Barranquero  <lekktu@gmail.com>
+
+       * vc-bzr.el (log-view-per-file-logs):
+       * vc-svn.el (log-view-per-file-logs): Pacify byte compiler.
+
 2008-06-15  Chong Yidong  <cyd@stupidchicken.com>
 
        * mouse.el (mouse-appearance-menu-map): New var.
@@ -44,17 +49,16 @@
 
 2008-06-15  Michael Albinus  <michael.albinus@gmx.de>
 
-       * net/tramp.el (tramp-handle-start-file-process): Clear
-       modification time of the connection buffer.
-       (tramp-sh-file-name-handler): Reset `tramp-locked' in case of
-       error.
+       * net/tramp.el (tramp-handle-start-file-process):
+       Clear modification time of the connection buffer.
+       (tramp-sh-file-name-handler): Reset `tramp-locked' in case of error.
        (tramp-open-connection-setup-interactive-shell): Flush cache, and
        restart `tramp-maybe-open-connection' when the remote system has
        been changed. Throw 'uname-changed event.
        (tramp-maybe-open-connection): Catch it.
 
-       * net/tramp-cmds.el (tramp-cleanup-all-connections): Reset
-       `tramp-locked'.
+       * net/tramp-cmds.el (tramp-cleanup-all-connections):
+       Reset `tramp-locked'.
 
 2008-06-15  Ulf Jasper  <ulf@web.de>
 
@@ -66,8 +70,7 @@
        Remove window dedication.
        (newsticker--group-manage-orphan-feeds): Handle ill-valued
        newsticker-groups.
-       (newsticker--treeview-tree-expand): Don't manage orphan feeds
-       here.
+       (newsticker--treeview-tree-expand): Don't manage orphan feeds here.
 
 2008-06-15  Andreas Schwab  <schwab@suse.de>
 

diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index 77593f0a2d3fd8b614b0d01ca23dfaee81cb060c..bcf86a4b169d5d4fed98506a89110ca6699c8099 100644 (file)
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -213,7 +213,7 @@ Invoke the bzr command adding `BZR_PROGRESS_BAR=none' and
   (lexical-let*
       ((filename* (expand-file-name filename))
        (rootdir (vc-bzr-root filename*)))
-    (when rootdir 
+    (when rootdir
          (file-relative-name filename* rootdir))))
 
 (defun vc-bzr-status (file)
@@ -325,18 +325,18 @@ If any error occurred in running `bzr status', then return nil."
     ;; May break if they change their format.
     (if (file-exists-p branch-format-file)
         (with-temp-buffer
-          (insert-file-contents branch-format-file) 
+          (insert-file-contents branch-format-file)
           (goto-char (point-min))
           (cond
            ((or
              (looking-at "Bazaar-NG branch, format 0.0.4")
              (looking-at "Bazaar-NG branch format 5"))
             ;; count lines in .bzr/branch/revision-history
-            (insert-file-contents revhistory-file) 
+            (insert-file-contents revhistory-file)
             (number-to-string (count-lines (line-end-position) (point-max))))
            ((looking-at "Bazaar Branch Format 6 (bzr 0.15)")
             ;; revno is the first number in .bzr/branch/last-revision
-            (insert-file-contents lastrev-file) 
+            (insert-file-contents lastrev-file)
             (if (re-search-forward "[0-9]+" nil t)
                 (buffer-substring (match-beginning 0) (match-end 0))))))
       ;; fallback to calling "bzr revno"
@@ -423,6 +423,7 @@ REV non-nil gets an error."
 (defvar log-view-file-re)
 (defvar log-view-font-lock-keywords)
 (defvar log-view-current-tag-function)
+(defvar log-view-per-file-logs)
 
 (define-derived-mode vc-bzr-log-view-mode log-view-mode "Bzr-Log-View"
   (remove-hook 'log-view-mode-hook 'vc-bzr-log-view-mode) ;Deactivate the hack.
@@ -469,7 +470,7 @@ REV non-nil gets an error."
   (let (case-fold-search)
     (if (re-search-forward
         ;; "revno:" can appear either at the beginning of a line, or indented.
-        (concat "^[ ]*-+\n[ ]*revno: " 
+        (concat "^[ ]*-+\n[ ]*revno: "
                 ;; The revision can contain ".", quote it so that it
                 ;; does not interfere with regexp matching.
                 (regexp-quote revision) "$") nil t)
@@ -480,14 +481,14 @@ REV non-nil gets an error."
   "VC bzr backend for diff."
   ;; `bzr diff' exits with code 1 if diff is non-empty.
   (apply #'vc-bzr-command "diff" (or buffer "*vc-diff*") 'async files
-         "--diff-options" (mapconcat 'identity 
+         "--diff-options" (mapconcat 'identity
                                      (vc-diff-switches-list bzr)
                                     " ")
          ;; This `when' is just an optimization because bzr-1.2 is *much*
          ;; faster when the revision argument is not given.
          (when (or rev1 rev2)
            (list "-r" (format "%s..%s"
-                              (or rev1 "revno:-1") 
+                              (or rev1 "revno:-1")
                               (or rev2 ""))))))
 
 
@@ -568,12 +569,12 @@ stream.  Standard error output is discarded."
 (defun vc-bzr-prettify-state-info (file)
   "Bzr-specific version of `vc-prettify-state-info'."
   (if (eq 'edited (vc-state file))
-        (concat "(" (symbol-name (or (vc-file-getprop file 'vc-bzr-state) 
+        (concat "(" (symbol-name (or (vc-file-getprop file 'vc-bzr-state)
                                      'edited)) ")")
     ;; else fall back to default vc.el representation
     (vc-default-prettify-state-info 'Bzr file)))
 
-;; XXX: this needs testing, it's probably incomplete. 
+;; XXX: this needs testing, it's probably incomplete.
 (defun vc-bzr-after-dir-status (update-function)
   (let ((status-str nil)
        (translation '(("+N" . added)
@@ -608,7 +609,7 @@ stream.  Standard error output is discarded."
                (setf (nth 1 entry) 'conflict)))
          (push (list (buffer-substring-no-properties
                       (+ (point) 4)
-                      (line-end-position)) 
+                      (line-end-position))
                      translated) result))
        (forward-line))
       (funcall update-function result)))

diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index 9f116a3c964d9226330d7728a84f4b2909c89938..a311c5e1cae9168dbcd50a652828da446fbc39c9 100644 (file)
--- 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))