/[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.3.18.1 by miles, Tue Oct 14 23:34:51 2003 UTC revision 1.3.18.2 by miles, Thu Sep 16 00:12:16 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  ;; Copyright (C) 1996 Free Software Foundation, Inc.  
3    ;; 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 26  Line 27 
27  ;;; Code:  ;;; Code:
28    
29  (eval-when-compile (require 'cl))  (eval-when-compile (require 'cl))
30  (require 'mm-util)                      ; for mm-auto-save-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 52  Line 54 
54    "Syntax table used in score-mode buffers.")    "Syntax table used in score-mode buffers.")
55    
56  ;; We need this to cope with non-ASCII scoring.  ;; We need this to cope with non-ASCII scoring.
57  (defvar score-mode-coding-system mm-auto-save-coding-system)  (defvar score-mode-coding-system mm-universal-coding-system)
58    
59  ;;;###autoload  ;;;###autoload
60  (defun gnus-score-mode ()  (defun gnus-score-mode ()
# Line 93  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.3.18.1  
changed lines
  Added in v.1.3.18.2

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