[prev in list] [next in list] [prev in thread] [next in thread] 

List:       subversion-cvs
Subject:    svn commit: r14523 - trunk/contrib/client-side/psvn
From:       xsteve () tigris ! org
Date:       2005-04-29 21:14:19
Message-ID: 200504292114.j3TLEJR11249 () morbius ! ch ! collab ! net
[Download RAW message or body]

Author: xsteve
Date: Fri Apr 29 16:14:18 2005
New Revision: 14523

Modified:
   trunk/contrib/client-side/psvn/psvn.el

Log:
New variable: svn-log-edit-use-log-edit-mode

* trunk/contrib/client-side/psvn/psvn.el:
  svn-log-edit-mode is derived from log-edit-mode, if 
    svn-log-edit-use-log-edit-mode is t
  otherwise svn-log-edit-mode is an independent mode

  Note log-edit-mode is not available for XEmacs

Modified: trunk/contrib/client-side/psvn/psvn.el
Url: http://svn.collab.net/viewcvs/svn/trunk/contrib/client-side/psvn/psvn.el?rev=1452 \
3&p1=trunk/contrib/client-side/psvn/psvn.el&p2=trunk/contrib/client-side/psvn/psvn.el&r1=14522&r2=14523
 ==============================================================================
--- trunk/contrib/client-side/psvn/psvn.el	(original)
+++ trunk/contrib/client-side/psvn/psvn.el	Fri Apr 29 16:14:18 2005
@@ -167,6 +167,7 @@
 (defvar svn-status-verbose t "*Add '-v' to svn status call.")
 (defvar svn-log-edit-file-name "++svn-log++" "*Name of a saved log file.")
 (defvar svn-log-edit-insert-files-to-commit t "*Insert the filelist to commit in the \
*svn-log* buffer") +(defvar svn-log-edit-use-log-edit-mode nil "*Use log-edit-mode as \
base for svn-log-edit-mode")  (defvar svn-status-hide-unknown nil "*Hide unknown \
files in `svn-status-buffer-name' buffer.")  (defvar svn-status-hide-unmodified nil \
"*Hide unmodified files in `svn-status-buffer-name' buffer.")  (defvar \
svn-status-directory-history nil "*List of visited svn working directories.") @@ \
-2756,6 +2757,25 @@  
 (defvar svn-log-edit-mode-map () "Keymap used in `svn-log-edit-mode' buffers.")
 
+(if svn-log-edit-use-log-edit-mode
+    (define-derived-mode svn-log-edit-mode log-edit-mode "svn-log-edit"
+      "Wrapper around `log-edit-mode' for psvn.el"
+      (easy-menu-add svn-log-edit-mode-menu)
+      (run-hooks 'svn-log-edit-mode-hook)
+      (setq svn-log-edit-update-log-entry nil))
+  (defun svn-log-edit-mode ()
+    "Major Mode to edit svn log messages.
+Commands:
+\\{svn-log-edit-mode-map}"
+    (interactive)
+    (kill-all-local-variables)
+    (use-local-map svn-log-edit-mode-map)
+    (easy-menu-add svn-log-edit-mode-menu)
+    (setq major-mode 'svn-log-edit-mode)
+    (setq mode-name "svn-log-edit")
+    (setq svn-log-edit-update-log-entry nil)
+    (run-hooks 'svn-log-edit-mode-hook)))
+
 (when (not svn-log-edit-mode-map)
   (setq svn-log-edit-mode-map (make-sparse-keymap))
   (define-key svn-log-edit-mode-map (kbd "C-c C-c") 'svn-log-edit-done)
@@ -2778,19 +2798,6 @@
                     ["Show files to commit" svn-log-edit-show-files-to-commit t]
                     ["Erase buffer" svn-log-edit-erase-edit-buffer]
                     ["Abort" svn-log-edit-abort t]))
-
-(defun svn-log-edit-mode ()
-  "Major Mode to edit svn log messages.
-Commands:
-\\{svn-log-edit-mode-map}"
-  (interactive)
-  (kill-all-local-variables)
-  (use-local-map svn-log-edit-mode-map)
-  (easy-menu-add svn-log-edit-mode-menu)
-  (setq major-mode 'svn-log-edit-mode)
-  (setq mode-name "svn-log-edit")
-  (setq svn-log-edit-update-log-entry nil)
-  (run-hooks 'svn-log-edit-mode-hook))
 
 (defun svn-log-edit-abort ()
   (interactive)

---------------------------------------------------------------------
To unsubscribe, e-mail: svn-unsubscribe@subversion.tigris.org
For additional commands, e-mail: svn-help@subversion.tigris.org


[prev in list] [next in list] [prev in thread] [next in thread]