Mercurial > emacs

comparison lisp/gnus/gnus-eform.el @ 56927:55fd4f77387a after-merge-gnus-5_10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523 Merge from emacs--gnus--5.10, gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0 tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1 Import from CVS branch gnus-5_10-branch * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2 Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19 Remove autoconf-generated files from archive * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20 Update from CVS
author Miles Bader <miles@gnu.org>
date Sat, 04 Sep 2004 13:13:48 +0000
parents 695cf19ef79e
children 4b7fa3ee8e9e cce1c0ee76ee
comparison
equal deleted inserted replaced
56926:f8e248e9a717 56927:55fd4f77387a
1 ;;; gnus-eform.el --- a mode for editing forms for Gnus 1 ;;; gnus-eform.el --- a mode for editing forms for Gnus
2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000 2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2004
3 ;; Free Software Foundation, Inc. 3 ;; Free Software Foundation, Inc.
4 4
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
6 ;; Keywords: news 6 ;; Keywords: news
7 7
104 (insert ";;; ") 104 (insert ";;; ")
105 (forward-line 1)) 105 (forward-line 1))
106 (insert ";; Type `C-c C-c' after you've finished editing.\n") 106 (insert ";; Type `C-c C-c' after you've finished editing.\n")
107 (insert "\n") 107 (insert "\n")
108 (let ((p (point))) 108 (let ((p (point)))
109 (pp form (current-buffer)) 109 (gnus-pp form)
110 (insert "\n") 110 (insert "\n")
111 (goto-char p)))) 111 (goto-char p))))
112 112
113 (defun gnus-edit-form-done () 113 (defun gnus-edit-form-done ()
114 "Update changes and kill the current buffer." 114 "Update changes and kill the current buffer."
115 (interactive) 115 (interactive)
116 (goto-char (point-min)) 116 (goto-char (point-min))
117 (let ((form (read (current-buffer))) 117 (let ((form (condition-case nil
118 (read (current-buffer))
119 (end-of-file nil)))
118 (func gnus-edit-form-done-function)) 120 (func gnus-edit-form-done-function))
119 (gnus-edit-form-exit) 121 (gnus-edit-form-exit)
120 (funcall func form))) 122 (funcall func form)))
121 123
122 (defun gnus-edit-form-exit () 124 (defun gnus-edit-form-exit ()