Commit db174434 authored by Chong Yidong's avatar Chong Yidong

Make Emacs Lisp mode use emacs-lisp-mode-abbrev-table.

* lisp/emacs-lisp/lisp-mode.el (emacs-lisp-mode-abbrev-table): Define
and use in Emacs Lisp mode.
(lisp-mode-abbrev-table): Add doc.
(lisp-mode-variables): Don't set local-abbrev-table.
(lisp-interaction-mode): Use emacs-lisp-mode-abbrev-table.

Fixes: debbugs:9360
parent c6ddbd68
2012-01-29 Chong Yidong <cyd@gnu.org>
* emacs-lisp/lisp-mode.el (emacs-lisp-mode-abbrev-table): Define
and use in Emacs Lisp mode (Bug#9360).
(lisp-mode-abbrev-table): Add doc.
(lisp-mode-variables): Don't set local-abbrev-table.
(lisp-interaction-mode): Use emacs-lisp-mode-abbrev-table.
2012-01-28 Roland Winkler <winkler@gnu.org> 2012-01-28 Roland Winkler <winkler@gnu.org>
* textmodes/bibtex.el (bibtex-vec-incr): Fix docstring. * textmodes/bibtex.el (bibtex-vec-incr): Fix docstring.
......
...@@ -34,8 +34,14 @@ ...@@ -34,8 +34,14 @@
(defvar font-lock-string-face) (defvar font-lock-string-face)
(defvar lisp-mode-abbrev-table nil) (defvar lisp-mode-abbrev-table nil)
(define-abbrev-table 'lisp-mode-abbrev-table ()
"Abbrev table for Lisp mode.")
(define-abbrev-table 'lisp-mode-abbrev-table ()) (defvar emacs-lisp-mode-abbrev-table nil)
(define-abbrev-table 'emacs-lisp-mode-abbrev-table ()
"Abbrev table for Emacs Lisp mode.
It has `lisp-mode-abbrev-table' as its parent."
:parents (list lisp-mode-abbrev-table))
(defvar emacs-lisp-mode-syntax-table (defvar emacs-lisp-mode-syntax-table
(let ((table (make-syntax-table)) (let ((table (make-syntax-table))
...@@ -206,7 +212,6 @@ score-mode.el. KEYWORDS-CASE-INSENSITIVE non-nil means that for ...@@ -206,7 +212,6 @@ score-mode.el. KEYWORDS-CASE-INSENSITIVE non-nil means that for
font-lock keywords will not be case sensitive." font-lock keywords will not be case sensitive."
(when lisp-syntax (when lisp-syntax
(set-syntax-table lisp-mode-syntax-table)) (set-syntax-table lisp-mode-syntax-table))
(setq local-abbrev-table lisp-mode-abbrev-table)
(make-local-variable 'paragraph-ignore-fill-prefix) (make-local-variable 'paragraph-ignore-fill-prefix)
(setq paragraph-ignore-fill-prefix t) (setq paragraph-ignore-fill-prefix t)
(make-local-variable 'fill-paragraph-function) (make-local-variable 'fill-paragraph-function)
...@@ -540,7 +545,8 @@ Semicolons start comments. ...@@ -540,7 +545,8 @@ Semicolons start comments.
\\{lisp-interaction-mode-map} \\{lisp-interaction-mode-map}
Entry to this mode calls the value of `lisp-interaction-mode-hook' Entry to this mode calls the value of `lisp-interaction-mode-hook'
if that value is non-nil.") if that value is non-nil."
:abbrev-table nil)
(defun eval-print-last-sexp () (defun eval-print-last-sexp ()
"Evaluate sexp before point; print value into current buffer. "Evaluate sexp before point; print value into current buffer.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment