Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-eform.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 0293115a14e9
children
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
115 (goto-char (point-min)) 115 (goto-char (point-min))
116 (let ((form (read (current-buffer))) 116 (let ((form (read (current-buffer)))
117 (func gnus-edit-form-done-function)) 117 (func gnus-edit-form-done-function))
118 (gnus-edit-form-exit) 118 (gnus-edit-form-exit)
119 (funcall func form))) 119 (funcall func form)))
120 120
121 (defun gnus-edit-form-exit () 121 (defun gnus-edit-form-exit ()
122 "Kill the current buffer." 122 "Kill the current buffer."
123 (interactive) 123 (interactive)
124 (let ((winconf gnus-prev-winconf)) 124 (let ((winconf gnus-prev-winconf))
125 (kill-buffer (current-buffer)) 125 (kill-buffer (current-buffer))