129 |
(put 'defsubst 'doc-string-elt 3) |
(put 'defsubst 'doc-string-elt 3) |
130 |
(put 'define-skeleton 'doc-string-elt 2) |
(put 'define-skeleton 'doc-string-elt 2) |
131 |
(put 'define-derived-mode 'doc-string-elt 4) |
(put 'define-derived-mode 'doc-string-elt 4) |
132 |
|
(put 'define-compilation-mode 'doc-string-elt 3) |
133 |
(put 'easy-mmode-define-minor-mode 'doc-string-elt 2) |
(put 'easy-mmode-define-minor-mode 'doc-string-elt 2) |
134 |
(put 'define-minor-mode 'doc-string-elt 2) |
(put 'define-minor-mode 'doc-string-elt 2) |
135 |
(put 'define-generic-mode 'doc-string-elt 7) |
(put 'define-generic-mode 'doc-string-elt 7) |
490 |
(and string |
(and string |
491 |
(= (car (read-from-string string)) char) |
(= (car (read-from-string string)) char) |
492 |
string)))) |
string)))) |
493 |
|
|
494 |
|
|
495 |
(defun eval-last-sexp-1 (eval-last-sexp-arg-internal) |
(defun eval-last-sexp-1 (eval-last-sexp-arg-internal) |
496 |
"Evaluate sexp before point; print value in minibuffer. |
"Evaluate sexp before point; print value in minibuffer. |