/[emacs]/emacs/lisp/gnus/score-mode.el
ViewVC logotype

Diff of /emacs/lisp/gnus/score-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4.2.1 by schwab, Thu Jul 22 16:45:51 2004 UTC revision 1.4.2.2 by rsteib, Tue Aug 31 14:47:58 2004 UTC
# Line 1  Line 1 
1  ;;; score-mode.el --- mode for editing Gnus score files  ;;; score-mode.el --- mode for editing Gnus score files
2    
3  ;; Copyright (C) 1996, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1996, 2001, 2004 Free Software Foundation, Inc.
4    
5  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
6  ;; Keywords: news, mail  ;; Keywords: news, mail
# Line 28  Line 28 
28    
29  (eval-when-compile (require 'cl))  (eval-when-compile (require 'cl))
30  (require 'mm-util)                      ; for mm-universal-coding-system  (require 'mm-util)                      ; for mm-universal-coding-system
31    (require 'gnus-util)                    ; for gnus-pp
32    
33  (defvar gnus-score-mode-hook nil  (defvar gnus-score-mode-hook nil
34    "*Hook run in score mode buffers.")    "*Hook run in score mode buffers.")
# Line 94  This mode is an extended emacs-lisp mode Line 95  This mode is an extended emacs-lisp mode
95    (let ((form (read (current-buffer))))    (let ((form (read (current-buffer))))
96      (erase-buffer)      (erase-buffer)
97      (let ((emacs-lisp-mode-syntax-table score-mode-syntax-table))      (let ((emacs-lisp-mode-syntax-table score-mode-syntax-table))
98        (pp form (current-buffer))))        (gnus-pp form)))
99    (goto-char (point-min)))    (goto-char (point-min)))
100    
101  (defun gnus-score-edit-exit ()  (defun gnus-score-edit-exit ()

Legend:
Removed from v.1.4.2.1  
changed lines
  Added in v.1.4.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26