Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-eform.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents ec9a17fef872
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
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))