[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-eform.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-eform.el [lexbind] |
Date: |
Wed, 15 Sep 2004 20:37:46 -0400 |
Index: emacs/lisp/gnus/gnus-eform.el
diff -c emacs/lisp/gnus/gnus-eform.el:1.3.18.1
emacs/lisp/gnus/gnus-eform.el:1.3.18.2
*** emacs/lisp/gnus/gnus-eform.el:1.3.18.1 Tue Oct 14 23:34:50 2003
--- emacs/lisp/gnus/gnus-eform.el Thu Sep 16 00:12:15 2004
***************
*** 1,5 ****
;;; gnus-eform.el --- a mode for editing forms for Gnus
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,5 ----
;;; gnus-eform.el --- a mode for editing forms for Gnus
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2004
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 106,112 ****
(insert ";; Type `C-c C-c' after you've finished editing.\n")
(insert "\n")
(let ((p (point)))
! (pp form (current-buffer))
(insert "\n")
(goto-char p))))
--- 106,112 ----
(insert ";; Type `C-c C-c' after you've finished editing.\n")
(insert "\n")
(let ((p (point)))
! (gnus-pp form)
(insert "\n")
(goto-char p))))
***************
*** 114,120 ****
"Update changes and kill the current buffer."
(interactive)
(goto-char (point-min))
! (let ((form (read (current-buffer)))
(func gnus-edit-form-done-function))
(gnus-edit-form-exit)
(funcall func form)))
--- 114,122 ----
"Update changes and kill the current buffer."
(interactive)
(goto-char (point-min))
! (let ((form (condition-case nil
! (read (current-buffer))
! (end-of-file nil)))
(func gnus-edit-form-done-function))
(gnus-edit-form-exit)
(funcall func form)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-eform.el [lexbind],
Miles Bader <=