emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-eform.el [emacs-unicode-2]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-eform.el [emacs-unicode-2]
Date: Thu, 09 Sep 2004 17:42:51 -0400

Index: emacs/lisp/gnus/gnus-eform.el
diff -c emacs/lisp/gnus/gnus-eform.el:1.3.24.1 
emacs/lisp/gnus/gnus-eform.el:1.3.24.2
*** emacs/lisp/gnus/gnus-eform.el:1.3.24.1      Fri Mar 12 00:02:57 2004
--- emacs/lisp/gnus/gnus-eform.el       Thu Sep  9 09:36:25 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)))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]