Paste number 12116: the function in question

(defun svn-commit (log-message)
  ;; Executes an SVN commit
  (interactive ())
  (save-buffer)
  (shell-command (concat "svn commit -m \"" (log-message) "\"" ) nil nil ))
Paste number 12116:	the function in question
Pasted by:	nenolod
When:	6 years, 4 months ago
Share:	Tweet this! \| http://paste.lisp.org/+9CK
Channel:	#xemacs
Paste contents:	Raw Source \| XML \| Display As