emacs调用SVN进行更新、提交、比较

需要安装SVN的TortoiseSVN客户端。
然后把下面的代码加入到.emacs文件：

(defun svn-update()  
  "Svn update"  
  (interactive)  
  (let ((cmd (concat "TortoiseProc.exe /command:update /path:\"" buffer-file-name "\" /closeonend:0")))  
    (message cmd)  
  (shell-command cmd)))  
  
(defun svn-commit()  
  "Svn commit"  
  (interactive)  
  (let ((cmd (concat "TortoiseProc.exe /command:commit /path:\"" buffer-file-name "\" /closeonend:0")))  
    (message cmd)  
  (shell-command cmd)))  
  
;;SVN diff  
(defun svn-diff()  
  "Svn diff"  
  (interactive)  
  (let ((cmd (concat "TortoiseProc.exe /command:diff /path:\"" buffer-file-name "\" /closeonend:0")))  
    (message cmd)  
  (shell-command cmd)))

 

在需要进行SVN同步的buffer下，使用方式：
M-x: svn-diff
M-x: svn-update
M-x: svn-commit

最常用的三个命令在emacs下就可以工作了。