projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Gnus v5.6.9.
[elisp/gnus.git-]
/
lisp
/
score-mode.el
diff --git
a/lisp/score-mode.el
b/lisp/score-mode.el
index
fdb8d71
..
42264ed
100644
(file)
--- a/
lisp/score-mode.el
+++ b/
lisp/score-mode.el
@@
-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))
(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.
;;;###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)
(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)
(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)
(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 ()
(goto-char (point-min)))
(defun gnus-score-edit-exit ()