From 2b0e738aee5e9c0ba8d6f8bb6cd5347527733000 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Wed, 8 Sep 2004 11:09:14 +0000 Subject: [PATCH] (define-compilation-mode): Specify `doc-string-elt' property. --- lisp/emacs-lisp/lisp-mode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index e2aac327ddc..700fc5f80a8 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -129,6 +129,7 @@ (put 'defsubst 'doc-string-elt 3) (put 'define-skeleton 'doc-string-elt 2) (put 'define-derived-mode 'doc-string-elt 4) +(put 'define-compilation-mode 'doc-string-elt 3) (put 'easy-mmode-define-minor-mode 'doc-string-elt 2) (put 'define-minor-mode 'doc-string-elt 2) (put 'define-generic-mode 'doc-string-elt 7) @@ -489,7 +490,7 @@ If CHAR is not a character, return nil." (and string (= (car (read-from-string string)) char) string)))) - + (defun eval-last-sexp-1 (eval-last-sexp-arg-internal) "Evaluate sexp before point; print value in minibuffer. -- 2.39.5