[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el

[John Paul Wallington]

Index: emacs/lisp/emacs-lisp/lisp-mode.el
diff -c emacs/lisp/emacs-lisp/lisp-mode.el:1.137 
emacs/lisp/emacs-lisp/lisp-mode.el:1.138
*** emacs/lisp/emacs-lisp/lisp-mode.el:1.137    Sat Nov  2 22:43:49 2002
--- emacs/lisp/emacs-lisp/lisp-mode.el  Wed Jan 29 16:45:07 2003
***************
*** 107,115 ****
         (purecopy (concat "^\\s-*("
                           (eval-when-compile
                             (regexp-opt
!                             '("defgroup" "deftype" "defstruct" "defclass"
!                               "define-condition" "define-widget" "defface"
!                               "defpackage") t))
                           "\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)"))
         2))
  
--- 107,115 ----
         (purecopy (concat "^\\s-*("
                           (eval-when-compile
                             (regexp-opt
!                             '("defgroup" "deftheme" "deftype" "defstruct"
!                               "defclass" "define-condition" "define-widget"
!                               "defface" "defpackage") t))
                           "\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)"))
         2))
  
***************
*** 121,126 ****
--- 121,127 ----
  (put 'defun*    'doc-string-elt 3)
  (put 'defvar   'doc-string-elt 3)
  (put 'defcustom 'doc-string-elt 3)
+ (put 'deftheme 'doc-string-elt 2)
  (put 'defconst 'doc-string-elt 3)
  (put 'defmacro 'doc-string-elt 3)
  (put 'defmacro* 'doc-string-elt 3)
***************
*** 132,140 ****
  (put 'define-generic-mode 'doc-string-elt 7)
  ;; define-global-mode has no explicit docstring.
  (put 'easy-mmode-define-global-mode 'doc-string-elt 0)
! (put 'define-ibuffer-filter 'doc-string-elt 3)
  (put 'define-ibuffer-op 'doc-string-elt 3)
! (put 'define-ibuffer-sorter 'doc-string-elt 3)
  
  (defun lisp-font-lock-syntactic-face-function (state)
    (if (nth 3 state)
--- 133,141 ----
  (put 'define-generic-mode 'doc-string-elt 7)
  ;; define-global-mode has no explicit docstring.
  (put 'easy-mmode-define-global-mode 'doc-string-elt 0)
! (put 'define-ibuffer-filter 'doc-string-elt 2)
  (put 'define-ibuffer-op 'doc-string-elt 3)
! (put 'define-ibuffer-sorter 'doc-string-elt 2)
  
  (defun lisp-font-lock-syntactic-face-function (state)
    (if (nth 3 state)