diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1999-02-20 14:05:57 +0000 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1999-02-20 14:05:57 +0000 |
| commit | 6748645fc3dd1604ed57a883b7c346128af27d90 (patch) | |
| tree | c4c528db7873d3ef96121c002b4d09209c305dca /lisp/gnus/score-mode.el | |
| parent | 44a6ed57c9af413959fdebe38649c0df4a055fca (diff) | |
| download | emacs-6748645fc3dd1604ed57a883b7c346128af27d90.tar.gz emacs-6748645fc3dd1604ed57a883b7c346128af27d90.tar.bz2 emacs-6748645fc3dd1604ed57a883b7c346128af27d90.zip | |
Upgrading to Gnus 5.7; see ChangeLog
Diffstat (limited to 'lisp/gnus/score-mode.el')
| -rw-r--r-- | lisp/gnus/score-mode.el | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/lisp/gnus/score-mode.el b/lisp/gnus/score-mode.el index fdb8d71b010..24c31f67242 100644 --- a/lisp/gnus/score-mode.el +++ b/lisp/gnus/score-mode.el @@ -1,7 +1,7 @@ ;;; score-mode.el --- mode for editing Gnus score files ;; Copyright (C) 1996 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no> +;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news, mail ;; This file is part of GNU Emacs. @@ -45,6 +45,12 @@ (define-key gnus-score-mode-map "\C-c\C-d" 'gnus-score-edit-insert-date) (define-key gnus-score-mode-map "\C-c\C-p" 'gnus-score-pretty-print)) +(defvar score-mode-syntax-table + (let ((table (copy-syntax-table lisp-mode-syntax-table))) + (modify-syntax-entry ?| "w" table) + table) + "Syntax table used in score-mode buffers.") + ;;;###autoload (defun gnus-score-mode () "Mode for editing Gnus score files. @@ -55,7 +61,7 @@ This mode is an extended emacs-lisp mode. (kill-all-local-variables) (use-local-map gnus-score-mode-map) (gnus-score-make-menu-bar) - (set-syntax-table emacs-lisp-mode-syntax-table) + (set-syntax-table score-mode-syntax-table) (setq major-mode 'gnus-score-mode) (setq mode-name "Score") (lisp-mode-variables nil) @@ -83,7 +89,8 @@ This mode is an extended emacs-lisp mode. (goto-char (point-min)) (let ((form (read (current-buffer)))) (erase-buffer) - (pp form (current-buffer))) + (let ((emacs-lisp-mode-syntax-table score-mode-syntax-table)) + (pp form (current-buffer)))) (goto-char (point-min))) (defun gnus-score-edit-exit () |