/[emacs]/emacs/lisp/emacs-lisp/lisp-mode.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/lisp-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.137 by monnier, Sun Nov 3 03:43:49 2002 UTC revision 1.138 by jpw, Wed Jan 29 21:45:07 2003 UTC
# Line 107  Line 107 
107           (purecopy (concat "^\\s-*("           (purecopy (concat "^\\s-*("
108                             (eval-when-compile                             (eval-when-compile
109                               (regexp-opt                               (regexp-opt
110                                '("defgroup" "deftype" "defstruct" "defclass"                                '("defgroup" "deftheme" "deftype" "defstruct"
111                                  "define-condition" "define-widget" "defface"                                  "defclass" "define-condition" "define-widget"
112                                  "defpackage") t))                                  "defface" "defpackage") t))
113                             "\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)"))                             "\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)"))
114           2))           2))
115    
# Line 121  Line 121 
121  (put 'defun*    'doc-string-elt 3)  (put 'defun*    'doc-string-elt 3)
122  (put 'defvar   'doc-string-elt 3)  (put 'defvar   'doc-string-elt 3)
123  (put 'defcustom 'doc-string-elt 3)  (put 'defcustom 'doc-string-elt 3)
124    (put 'deftheme 'doc-string-elt 2)
125  (put 'defconst 'doc-string-elt 3)  (put 'defconst 'doc-string-elt 3)
126  (put 'defmacro 'doc-string-elt 3)  (put 'defmacro 'doc-string-elt 3)
127  (put 'defmacro* 'doc-string-elt 3)  (put 'defmacro* 'doc-string-elt 3)
# Line 132  Line 133 
133  (put 'define-generic-mode 'doc-string-elt 7)  (put 'define-generic-mode 'doc-string-elt 7)
134  ;; define-global-mode has no explicit docstring.  ;; define-global-mode has no explicit docstring.
135  (put 'easy-mmode-define-global-mode 'doc-string-elt 0)  (put 'easy-mmode-define-global-mode 'doc-string-elt 0)
136  (put 'define-ibuffer-filter 'doc-string-elt 3)  (put 'define-ibuffer-filter 'doc-string-elt 2)
137  (put 'define-ibuffer-op 'doc-string-elt 3)  (put 'define-ibuffer-op 'doc-string-elt 3)
138  (put 'define-ibuffer-sorter 'doc-string-elt 3)  (put 'define-ibuffer-sorter 'doc-string-elt 2)
139    
140  (defun lisp-font-lock-syntactic-face-function (state)  (defun lisp-font-lock-syntactic-face-function (state)
141    (if (nth 3 state)    (if (nth 3 state)

Legend:
Removed from v.1.137  
changed lines
  Added in v.1.138

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26