Commit def61be2 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

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

parent 5e634ec9
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> 2008-06-15 Chong Yidong <cyd@stupidchicken.com>
* mouse.el (mouse-appearance-menu-map): New var. * mouse.el (mouse-appearance-menu-map): New var.
...@@ -44,17 +49,16 @@ ...@@ -44,17 +49,16 @@
2008-06-15 Michael Albinus <michael.albinus@gmx.de> 2008-06-15 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-handle-start-file-process): Clear * net/tramp.el (tramp-handle-start-file-process):
modification time of the connection buffer. Clear modification time of the connection buffer.
(tramp-sh-file-name-handler): Reset `tramp-locked' in case of (tramp-sh-file-name-handler): Reset `tramp-locked' in case of error.
error.
(tramp-open-connection-setup-interactive-shell): Flush cache, and (tramp-open-connection-setup-interactive-shell): Flush cache, and
restart `tramp-maybe-open-connection' when the remote system has restart `tramp-maybe-open-connection' when the remote system has
been changed. Throw 'uname-changed event. been changed. Throw 'uname-changed event.
(tramp-maybe-open-connection): Catch it. (tramp-maybe-open-connection): Catch it.
* net/tramp-cmds.el (tramp-cleanup-all-connections): Reset * net/tramp-cmds.el (tramp-cleanup-all-connections):
`tramp-locked'. Reset `tramp-locked'.
2008-06-15 Ulf Jasper <ulf@web.de> 2008-06-15 Ulf Jasper <ulf@web.de>
...@@ -66,8 +70,7 @@ ...@@ -66,8 +70,7 @@
Remove window dedication. Remove window dedication.
(newsticker--group-manage-orphan-feeds): Handle ill-valued (newsticker--group-manage-orphan-feeds): Handle ill-valued
newsticker-groups. newsticker-groups.
(newsticker--treeview-tree-expand): Don't manage orphan feeds (newsticker--treeview-tree-expand): Don't manage orphan feeds here.
here.
2008-06-15 Andreas Schwab <schwab@suse.de> 2008-06-15 Andreas Schwab <schwab@suse.de>
......
...@@ -213,7 +213,7 @@ Invoke the bzr command adding `BZR_PROGRESS_BAR=none' and ...@@ -213,7 +213,7 @@ Invoke the bzr command adding `BZR_PROGRESS_BAR=none' and
(lexical-let* (lexical-let*
((filename* (expand-file-name filename)) ((filename* (expand-file-name filename))
(rootdir (vc-bzr-root filename*))) (rootdir (vc-bzr-root filename*)))
(when rootdir (when rootdir
(file-relative-name filename* rootdir)))) (file-relative-name filename* rootdir))))
(defun vc-bzr-status (file) (defun vc-bzr-status (file)
...@@ -325,18 +325,18 @@ If any error occurred in running `bzr status', then return nil." ...@@ -325,18 +325,18 @@ If any error occurred in running `bzr status', then return nil."
;; May break if they change their format. ;; May break if they change their format.
(if (file-exists-p branch-format-file) (if (file-exists-p branch-format-file)
(with-temp-buffer (with-temp-buffer
(insert-file-contents branch-format-file) (insert-file-contents branch-format-file)
(goto-char (point-min)) (goto-char (point-min))
(cond (cond
((or ((or
(looking-at "Bazaar-NG branch, format 0.0.4") (looking-at "Bazaar-NG branch, format 0.0.4")
(looking-at "Bazaar-NG branch format 5")) (looking-at "Bazaar-NG branch format 5"))
;; count lines in .bzr/branch/revision-history ;; 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)))) (number-to-string (count-lines (line-end-position) (point-max))))
((looking-at "Bazaar Branch Format 6 (bzr 0.15)") ((looking-at "Bazaar Branch Format 6 (bzr 0.15)")
;; revno is the first number in .bzr/branch/last-revision ;; 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) (if (re-search-forward "[0-9]+" nil t)
(buffer-substring (match-beginning 0) (match-end 0)))))) (buffer-substring (match-beginning 0) (match-end 0))))))
;; fallback to calling "bzr revno" ;; fallback to calling "bzr revno"
...@@ -423,6 +423,7 @@ REV non-nil gets an error." ...@@ -423,6 +423,7 @@ REV non-nil gets an error."
(defvar log-view-file-re) (defvar log-view-file-re)
(defvar log-view-font-lock-keywords) (defvar log-view-font-lock-keywords)
(defvar log-view-current-tag-function) (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" (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. (remove-hook 'log-view-mode-hook 'vc-bzr-log-view-mode) ;Deactivate the hack.
...@@ -469,7 +470,7 @@ REV non-nil gets an error." ...@@ -469,7 +470,7 @@ REV non-nil gets an error."
(let (case-fold-search) (let (case-fold-search)
(if (re-search-forward (if (re-search-forward
;; "revno:" can appear either at the beginning of a line, or indented. ;; "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 ;; The revision can contain ".", quote it so that it
;; does not interfere with regexp matching. ;; does not interfere with regexp matching.
(regexp-quote revision) "$") nil t) (regexp-quote revision) "$") nil t)
...@@ -480,14 +481,14 @@ REV non-nil gets an error." ...@@ -480,14 +481,14 @@ REV non-nil gets an error."
"VC bzr backend for diff." "VC bzr backend for diff."
;; `bzr diff' exits with code 1 if diff is non-empty. ;; `bzr diff' exits with code 1 if diff is non-empty.
(apply #'vc-bzr-command "diff" (or buffer "*vc-diff*") 'async files (apply #'vc-bzr-command "diff" (or buffer "*vc-diff*") 'async files
"--diff-options" (mapconcat 'identity "--diff-options" (mapconcat 'identity
(vc-diff-switches-list bzr) (vc-diff-switches-list bzr)
" ") " ")
;; This `when' is just an optimization because bzr-1.2 is *much* ;; This `when' is just an optimization because bzr-1.2 is *much*
;; faster when the revision argument is not given. ;; faster when the revision argument is not given.
(when (or rev1 rev2) (when (or rev1 rev2)
(list "-r" (format "%s..%s" (list "-r" (format "%s..%s"
(or rev1 "revno:-1") (or rev1 "revno:-1")
(or rev2 "")))))) (or rev2 ""))))))
...@@ -568,12 +569,12 @@ stream. Standard error output is discarded." ...@@ -568,12 +569,12 @@ stream. Standard error output is discarded."
(defun vc-bzr-prettify-state-info (file) (defun vc-bzr-prettify-state-info (file)
"Bzr-specific version of `vc-prettify-state-info'." "Bzr-specific version of `vc-prettify-state-info'."
(if (eq 'edited (vc-state file)) (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)) ")") 'edited)) ")")
;; else fall back to default vc.el representation ;; else fall back to default vc.el representation
(vc-default-prettify-state-info 'Bzr file))) (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) (defun vc-bzr-after-dir-status (update-function)
(let ((status-str nil) (let ((status-str nil)
(translation '(("+N" . added) (translation '(("+N" . added)
...@@ -608,7 +609,7 @@ stream. Standard error output is discarded." ...@@ -608,7 +609,7 @@ stream. Standard error output is discarded."
(setf (nth 1 entry) 'conflict))) (setf (nth 1 entry) 'conflict)))
(push (list (buffer-substring-no-properties (push (list (buffer-substring-no-properties
(+ (point) 4) (+ (point) 4)
(line-end-position)) (line-end-position))
translated) result)) translated) result))
(forward-line)) (forward-line))
(funcall update-function result))) (funcall update-function result)))
......
...@@ -177,7 +177,7 @@ RESULT is a list of conses (FILE . STATE) for directory DIR." ...@@ -177,7 +177,7 @@ RESULT is a list of conses (FILE . STATE) for directory DIR."
"Generate extra status headers for a Subversion working copy." "Generate extra status headers for a Subversion working copy."
(vc-svn-command "*vc*" 0 nil "info") (vc-svn-command "*vc*" 0 nil "info")
(let ((repo (let ((repo
(save-excursion (save-excursion
(and (progn (and (progn
(set-buffer "*vc*") (set-buffer "*vc*")
(goto-char (point-min)) (goto-char (point-min))
...@@ -407,7 +407,7 @@ or svn+ssh://." ...@@ -407,7 +407,7 @@ or svn+ssh://."
(progn (progn
(unless (vc-do-command (unless (vc-do-command
"*vc*" 0 "svnadmin" nil "*vc*" 0 "svnadmin" nil
"setlog" "--bypass-hooks" directory "setlog" "--bypass-hooks" directory
"-r" rev (format "%s" tempfile)) "-r" rev (format "%s" tempfile))
(error "Log edit failed")) (error "Log edit failed"))
(delete-file tempfile)) (delete-file tempfile))
...@@ -425,6 +425,8 @@ or svn+ssh://." ...@@ -425,6 +425,8 @@ or svn+ssh://."
;;; History functions ;;; History functions
;;; ;;;
(defvar log-view-per-file-logs)
(define-derived-mode vc-svn-log-view-mode log-view-mode "SVN-Log-View" (define-derived-mode vc-svn-log-view-mode log-view-mode "SVN-Log-View"
(require 'add-log) (require 'add-log)
(set (make-local-variable 'log-view-per-file-logs) nil)) (set (make-local-variable 'log-view-per-file-logs) nil))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment