psvn って何?

Subversion User Interface を提供します。

auto-autoloads.el

(autoload 'svn-status "psvn" nil t)

;;; 以下の設定をしたくない場合は
;;; (setq auto-autoloads-psvn nil) 
;;; と ~/.emacs に書くこと

(when (or (not (boundp 'auto-autoloads-psvn))
	  auto-autoloads-psvn)

  ;; 以下は[meadow-develop:5083]より

  ;; 未変更のファイルを非表示
  (defvar svn-status-hide-unmodified t)

  ;; commit log を ChangeLog から作成
  (add-hook 'svn-log-edit-mode-hook
	    (lambda ()
	      (require 'log-edit)
	      (let ((log-edit-listfun 'svn-status-marked-file-names))
		(log-edit-insert-changelog))))

  ;; commit 終了時の追加処理
  (defadvice svn-log-edit-done
    (after clear-user-marks activate)
    ;; commit log 用のバッファを削除
    (kill-buffer (get-buffer-create "*svn-log-edit*"))
    ;; mark をすべてクリア
    (svn-status-unset-all-usermarks))
  )

~/.emacs

上記 auto-autoloads.el で設定済みなので、 特に何も設定しなくとも M-x svn-status RET で使えます。

関連リンク