Mercurial > emacs

comparison lisp/gnus/score-mode.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 a96e31f51315 cce1c0ee76ee
comparison
equal deleted inserted replaced
56926:f8e248e9a717 56927:55fd4f77387a
1 ;;; score-mode.el --- mode for editing Gnus score files 1 ;;; score-mode.el --- mode for editing Gnus score files
2 ;; Copyright (C) 1996 Free Software Foundation, Inc. 2
3 ;; Copyright (C) 1996, 2001, 2004 Free Software Foundation, Inc.
3 4
4 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
5 ;; Keywords: news, mail 6 ;; Keywords: news, mail
6 7
7 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
24 ;;; Commentary: 25 ;;; Commentary:
25 26
26 ;;; Code: 27 ;;; Code:
27 28
28 (eval-when-compile (require 'cl)) 29 (eval-when-compile (require 'cl))
29 (require 'mm-util) ; for mm-auto-save-coding-system 30 (require 'mm-util) ; for mm-universal-coding-system
31 (require 'gnus-util) ; for gnus-pp
30 32
31 (defvar gnus-score-mode-hook nil 33 (defvar gnus-score-mode-hook nil
32 "*Hook run in score mode buffers.") 34 "*Hook run in score mode buffers.")
33 35
34 (defvar gnus-score-menu-hook nil 36 (defvar gnus-score-menu-hook nil
50 (modify-syntax-entry ?| "w" table) 52 (modify-syntax-entry ?| "w" table)
51 table) 53 table)
52 "Syntax table used in score-mode buffers.") 54 "Syntax table used in score-mode buffers.")
53 55
54 ;; We need this to cope with non-ASCII scoring. 56 ;; We need this to cope with non-ASCII scoring.
55 (defvar score-mode-coding-system mm-auto-save-coding-system) 57 (defvar score-mode-coding-system mm-universal-coding-system)
56 58
57 ;;;###autoload 59 ;;;###autoload
58 (defun gnus-score-mode () 60 (defun gnus-score-mode ()
59 "Mode for editing Gnus score files. 61 "Mode for editing Gnus score files.
60 This mode is an extended emacs-lisp mode. 62 This mode is an extended emacs-lisp mode.
91 (interactive) 93 (interactive)
92 (goto-char (point-min)) 94 (goto-char (point-min))
93 (let ((form (read (current-buffer)))) 95 (let ((form (read (current-buffer))))
94 (erase-buffer) 96 (erase-buffer)
95 (let ((emacs-lisp-mode-syntax-table score-mode-syntax-table)) 97 (let ((emacs-lisp-mode-syntax-table score-mode-syntax-table))
96 (pp form (current-buffer)))) 98 (gnus-pp form)))
97 (goto-char (point-min))) 99 (goto-char (point-min)))
98 100
99 (defun gnus-score-edit-exit () 101 (defun gnus-score-edit-exit ()
100 "Stop editing the score file." 102 "Stop editing the score file."
101 (interactive) 103 (interactive)