[subversion] update to latest psvn.el
jorton
jorton at fedoraproject.org
Tue Jan 8 16:52:30 UTC 2013
commit d9a7f5f5976a4d33d28f1a971e82032b712a0c9c
Author: Joe Orton <jorton at redhat.com>
Date: Tue Jan 8 16:52:25 2013 +0000
update to latest psvn.el
psvn.el | 91 +++++++++++++++++++++++++++++++------------------------
subversion.spec | 5 ++-
2 files changed, 55 insertions(+), 41 deletions(-)
---
diff --git a/psvn.el b/psvn.el
index 2532c21..5fbee9b 100644
--- a/psvn.el
+++ b/psvn.el
@@ -23,7 +23,7 @@
;;; Commentary
;; psvn.el is tested with GNU Emacs 21.3 on windows, debian linux,
-;; freebsd5, red hat el4, ubuntu intrepid with svn 1.5.1
+;; freebsd5, red hat el4, ubuntu 11.10 with svn 1.6.12
;; psvn.el needs at least svn 1.1.0
;; if you upgrade to a higher version, you need to do a fresh checkout
@@ -138,8 +138,6 @@
;; The latest version of psvn.el can be found at:
;; http://www.xsteve.at/prg/emacs/psvn.el
-;; Or you can check it out from the subversion repository:
-;; svn co http://svn.collab.net/repos/svn/trunk/contrib/client-side/emacs emacs-svn
;; TODO:
;; * shortcut for svn propset svn:keywords "Date" psvn.el
@@ -243,7 +241,7 @@
;;; Code:
-(defconst svn-psvn-revision "2012-02-21, 21:48:53" "The revision date of psvn.")
+(defconst svn-psvn-revision "2012-03-26, 21:23:49" "The revision date of psvn.")
(require 'easymenu)
@@ -703,6 +701,7 @@ This is nil if the log entry is for a new commit.")
(defvar svn-status-update-previous-process-output nil)
(defvar svn-pre-run-asynch-recent-keys nil)
(defvar svn-pre-run-mode-line-process nil)
+(defvar svn-arg-file-content nil)
(defvar svn-status-temp-dir
(expand-file-name
(or
@@ -1316,7 +1315,9 @@ The hook svn-pre-run-hook allows to monitor/modify the ARGLIST."
(setq svn-status-mode-line-process-status (format " running %s" cmdtype))
(svn-status-update-mode-line)
(save-excursion (sit-for 0.1))
- (ring-insert svn-last-cmd-ring (list (current-time-string) arglist default-directory))
+ (ring-insert svn-last-cmd-ring (list (current-time-string) arglist default-directory svn-arg-file-content))
+ (setq svn-arg-file-content nil)
+ (setq svn-process-handle-error-msg nil)
(if run-asynchron
(progn
;;(message "running asynchron: %s %S" svn-exe arglist)
@@ -1514,11 +1515,11 @@ The hook svn-pre-run-hook allows to monitor/modify the ARGLIST."
When this function resets `svn-process-handle-error-msg' to nil, the default error handling
(just show the error message) is not executed.")
(defun svn-process-handle-error (error-msg)
- (let ((svn-process-handle-error-msg error-msg))
- (when (functionp svn-handle-error-function)
- (funcall svn-handle-error-function error-msg))
- (when svn-process-handle-error-msg
- (electric-helpify 'svn-process-help-with-error-msg))))
+ (setq svn-process-handle-error-msg error-msg)
+ (when (functionp svn-handle-error-function)
+ (funcall svn-handle-error-function error-msg))
+ (when svn-process-handle-error-msg
+ (electric-helpify 'svn-process-help-with-error-msg)))
(defun svn-process-help-with-error-msg ()
(interactive)
@@ -3649,20 +3650,18 @@ if no files have been marked."
svn-status-ui-information))
-(defun svn-status-create-arg-file (file-name prefix file-info-list postfix)
+(defun svn-status-create-arg-file (file-info-list)
"Create an svn client argument file"
;; create the arg file on the remote host when we will run svn on this host!
- (setq file-name (svn-expand-filename-for-remote-access file-name))
- ;; (message "svn-status-create-arg-file %s: %s" default-directory file-name)
- (with-temp-file file-name
- (insert prefix)
- (let ((st-info file-info-list))
- (while st-info
- (insert (svn-status-line-info->filename (car st-info)))
- (insert "\n")
- (setq st-info (cdr st-info)))
-
- (insert postfix))))
+ (let ((file-name (svn-expand-filename-for-remote-access svn-status-temp-arg-file)))
+ ;; (message "svn-status-create-arg-file %s: %s" default-directory file-name)
+ (with-temp-file file-name
+ (let ((st-info file-info-list))
+ (while st-info
+ (insert (svn-status-line-info->filename (car st-info)))
+ (insert "\n")
+ (setq st-info (cdr st-info)))
+ (setq svn-arg-file-content (buffer-substring-no-properties (point-min) (point-max)))))))
(defun svn-status-show-process-buffer-internal (&optional scroll-to-top)
(let ((cur-buff (current-buffer)))
@@ -3728,7 +3727,7 @@ See `svn-status-marked-files' for what counts as selected."
(let ((switches (svn-status-svn-log-switches arg))
(svn-status-get-line-information-for-file t))
;; (message "svn-status-show-svn-log %S" arg)
- (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-marked-files) "")
+ (svn-status-create-arg-file (svn-status-marked-files))
(svn-run t t 'log "log" "--targets" svn-status-temp-arg-file switches)))
(defun svn-status-version ()
@@ -3757,11 +3756,16 @@ The version number of the client is cached in `svn-client-version'."
(set-window-configuration window-conf)
version-string))))
+(defun svn-compute-svn-client-version ()
+ "Ensure that svn-client-version is available."
+ (unless svn-client-version
+ (svn-status-version)))
+
(defun svn-status-info ()
"Run `svn info' on all selected files.
See `svn-status-marked-files' for what counts as selected."
(interactive)
- (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-marked-files) "")
+ (svn-status-create-arg-file (svn-status-marked-files))
(svn-run t t 'info "info" "--targets" svn-status-temp-arg-file))
(defun svn-status-info-for-path (path)
@@ -3968,7 +3972,7 @@ See `svn-status-marked-files' for what counts as selected.
When this function is called with a prefix argument, use the actual file instead."
(interactive "P")
(message "adding: %S" (svn-status-get-file-list-names (not arg)))
- (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-get-file-list (not arg)) "")
+ (svn-status-create-arg-file (svn-status-get-file-list (not arg)))
(svn-run t t 'add "add" "--targets" svn-status-temp-arg-file))
(defun svn-status-add-file (arg)
@@ -3979,7 +3983,7 @@ See `svn-status-marked-files' for what counts as selected.
When this function is called with a prefix argument, use the actual file instead."
(interactive "P")
(message "adding: %S" (svn-status-get-file-list-names (not arg)))
- (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-get-file-list (not arg)) "")
+ (svn-status-create-arg-file (svn-status-get-file-list (not arg)))
(svn-run t t 'add "add" "--non-recursive" "--targets" svn-status-temp-arg-file))
(defun svn-status-lock (arg)
@@ -3987,7 +3991,7 @@ When this function is called with a prefix argument, use the actual file instead
See `svn-status-marked-files' for what counts as selected."
(interactive "P")
(message "locking: %S" (svn-status-get-file-list-names t))
- (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-get-file-list t) "")
+ (svn-status-create-arg-file (svn-status-get-file-list t))
(svn-run t t 'lock "lock" "--targets" svn-status-temp-arg-file))
(defun svn-status-unlock (arg)
@@ -3995,7 +3999,7 @@ See `svn-status-marked-files' for what counts as selected."
See `svn-status-marked-files' for what counts as selected."
(interactive "P")
(message "unlocking: %S" (svn-status-get-file-list-names t))
- (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-get-file-list t) "")
+ (svn-status-create-arg-file (svn-status-get-file-list t))
(svn-run t t 'unlock "unlock" "--targets" svn-status-temp-arg-file))
(defun svn-status-make-directory (dir)
@@ -4161,7 +4165,7 @@ See `svn-status-marked-files' for what counts as selected."
(format "Revert %s? " (svn-status-line-info->filename (car marked-files)))
(format "Revert %d files? " num-of-files)))
(message "reverting: %S" (svn-status-marked-file-names))
- (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-marked-files) "")
+ (svn-status-create-arg-file (svn-status-marked-files))
(svn-run t t 'revert "revert" "--targets" svn-status-temp-arg-file))))
(defun svn-file-revert ()
@@ -4184,7 +4188,7 @@ Forcing the deletion can also be used to delete files not under svn control."
(format "%sRemove %s? " (if force "Force " "") (svn-status-line-info->filename (car marked-files)))
(format "%sRemove %d files? " (if force "Force " "") num-of-files)))
(message "removing: %S" (svn-status-marked-file-names))
- (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-marked-files) "")
+ (svn-status-create-arg-file (svn-status-marked-files))
(if force
(save-excursion
(svn-run t t 'rm "rm" "--force" "--targets" svn-status-temp-arg-file)
@@ -4208,8 +4212,7 @@ When called with a negative prefix argument, only update the selected files."
(format "Selected entries: Run svn update -r ")
(format "Directory: %s: Run svn update -r " default-directory))
(if selective-update "HEAD" nil)))))
- (unless svn-client-version
- (svn-status-version))
+ (svn-compute-svn-client-version)
(if (and (<= (car svn-client-version) 1) (< (cadr svn-client-version) 5))
(setq update-extra-arg (list "--non-interactive")) ;; svn version < 1.5
(setq update-extra-arg (list "--accept" "postpone"))) ;; svn version >= 1.5
@@ -4319,7 +4322,7 @@ See `svn-status-marked-files' for what counts as selected."
(format "Resolve %s? " (svn-status-line-info->filename (car marked-files)))
(format "Resolve %d files? " num-of-files)))
(message "resolving: %S" (svn-status-marked-file-names))
- (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-marked-files) "")
+ (svn-status-create-arg-file (svn-status-marked-files))
(svn-run t t 'resolved "resolved" "--targets" svn-status-temp-arg-file))))
@@ -4572,9 +4575,12 @@ names are relative to the directory where `svn-status' was run."
(progn
(message "Getting revision %s of %s, target: %s" revision file-name
(expand-file-name(concat default-directory file-name-with-revision)))
+ (svn-compute-svn-client-version)
(let ((content
(with-temp-buffer
- (if (string= revision "BASE")
+ (if (and (and (<= (car svn-client-version) 1) (< (cadr svn-client-version) 7))
+ (string= revision "BASE"))
+ ;; Shortcut: Take the file from the file system when using svn client < v1.7
(insert-file-contents (concat (svn-wc-adm-dir-name)
"/text-base/"
(file-name-nondirectory file-name)
@@ -5072,8 +5078,7 @@ Commands:
(setq svn-status-temp-file-to-remove (svn-expand-filename-for-remote-access svn-propedit-file-name))
(write-region (point-min) (point-max) svn-status-temp-file-to-remove nil 1)
(when svn-status-propedit-file-list ; there are files to change properties
- (svn-status-create-arg-file svn-status-temp-arg-file ""
- svn-status-propedit-file-list "")
+ (svn-status-create-arg-file svn-status-propedit-file-list)
(setq svn-status-propedit-file-list nil)
(svn-run async t 'propset "propset"
svn-status-propedit-property-name
@@ -5200,7 +5205,7 @@ Commands:
(setq svn-status-operated-on-dot
(and (= 1 (length svn-status-files-to-commit))
(string= "." (svn-status-line-info->filename (car svn-status-files-to-commit)))))
- (svn-status-create-arg-file svn-status-temp-arg-file "" svn-status-files-to-commit "")
+ (svn-status-create-arg-file svn-status-files-to-commit)
(svn-run t t 'commit "commit"
(unless svn-status-recursive-commit "--non-recursive")
"--targets" svn-status-temp-arg-file
@@ -6037,8 +6042,7 @@ Return nil, if not in a svn working copy."
(if (not (eq base-dir 'not-found))
base-dir
;; (message "calculating base-dir for %s" start-dir)
- (unless svn-client-version
- (svn-status-version))
+ (svn-compute-svn-client-version)
(let* ((base-dir start-dir)
(repository-root (svn-status-repo-for-path base-dir))
(dot-svn-dir (concat base-dir (svn-wc-adm-dir-name)))
@@ -6453,7 +6457,11 @@ working directory."
(setq string-prefix ""))
(with-output-to-string
(dolist (e (ring-elements svn-last-cmd-ring))
- (princ (format "%s%s: svn %s <%s>\n" string-prefix (nth 0 e) (mapconcat 'concat (nth 1 e) " ") (nth 2 e))))))
+ (princ (format "%s%s: svn %s <%s>\n" string-prefix (nth 0 e) (mapconcat 'concat (nth 1 e) " ") (nth 2 e)))
+ (when (nth 3 e)
+ (princ (format "%s<arg-file-content>\n" string-prefix))
+ (princ (nth 3 e))
+ (princ (format "%s</arg-file-content>\n" string-prefix))))))
;; --------------------------------------------------------------------------------
;; reporting bugs
@@ -6480,6 +6488,9 @@ working directory."
(dolist (elem (svn-process-environment))
(when (member (car (split-string elem "=")) '("LC_MESSAGES" "LC_ALL" "LANG"))
(insert (format " %s\n" elem))))
+ (when svn-process-handle-error-msg
+ (insert "\nsvn client error message:\n")
+ (svn-insert-indented-lines svn-process-handle-error-msg))
(insert "\nLast svn commands:\n")
(svn-insert-indented-lines (svn-status-last-commands))
(insert (format "\nContent of the <%s> buffer:\n" last-output-buffer-name))
diff --git a/subversion.spec b/subversion.spec
index b8b4cc9..0525228 100644
--- a/subversion.spec
+++ b/subversion.spec
@@ -26,7 +26,7 @@
Summary: A Modern Concurrent Version Control System
Name: subversion
Version: 1.7.8
-Release: 2%{?dist}
+Release: 3%{?dist}
License: ASL 2.0
Group: Development/Tools
URL: http://subversion.apache.org/
@@ -467,6 +467,9 @@ rm -rf ${RPM_BUILD_ROOT}
%endif
%changelog
+* Tue Jan 8 2013 Joe Orton <jorton at redhat.com> - 1.7.8-3
+- update to latest psvn.el
+
* Tue Jan 8 2013 Lukáš Nykrýn <lnykryn at redhat.com> - 1.7.8-2
- Scriptlets replaced with new systemd macros (#850410)
More information about the scm-commits
mailing list