Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 89971:cce1c0ee76ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-36 Merge from emacs--cvs-trunk--0, emacs--gnus--5.10, gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523 Merge from emacs--gnus--5.10, gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-524 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-534 Update from CVS * miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0 tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1 Import from CVS branch gnus-5_10-branch * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2 Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19 Remove autoconf-generated files from archive * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20 Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 09 Sep 2004 09:36:36 +0000
parents 3219f94257bc 5418c6e288fc
children ff0e824afa37
comparison
equal deleted inserted replaced
89970:a849e5779b8c 89971:cce1c0ee76ee
127 (put 'defmacro 'doc-string-elt 3) 127 (put 'defmacro 'doc-string-elt 3)
128 (put 'defmacro* 'doc-string-elt 3) 128 (put 'defmacro* 'doc-string-elt 3)
129 (put 'defsubst 'doc-string-elt 3) 129 (put 'defsubst 'doc-string-elt 3)
130 (put 'define-skeleton 'doc-string-elt 2) 130 (put 'define-skeleton 'doc-string-elt 2)
131 (put 'define-derived-mode 'doc-string-elt 4) 131 (put 'define-derived-mode 'doc-string-elt 4)
132 (put 'define-compilation-mode 'doc-string-elt 3)
132 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2) 133 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2)
133 (put 'define-minor-mode 'doc-string-elt 2) 134 (put 'define-minor-mode 'doc-string-elt 2)
134 (put 'define-generic-mode 'doc-string-elt 7) 135 (put 'define-generic-mode 'doc-string-elt 7)
135 ;; define-global-mode has no explicit docstring. 136 ;; define-global-mode has no explicit docstring.
136 (put 'easy-mmode-define-global-mode 'doc-string-elt 0) 137 (put 'easy-mmode-define-global-mode 'doc-string-elt 0)
487 ;; Verify the string reads a CHAR, not to some other character. 488 ;; Verify the string reads a CHAR, not to some other character.
488 ;; If it doesn't, return nil instead. 489 ;; If it doesn't, return nil instead.
489 (and string 490 (and string
490 (= (car (read-from-string string)) char) 491 (= (car (read-from-string string)) char)
491 string)))) 492 string))))
492 493
493 494
494 (defun eval-last-sexp-1 (eval-last-sexp-arg-internal) 495 (defun eval-last-sexp-1 (eval-last-sexp-arg-internal)
495 "Evaluate sexp before point; print value in minibuffer. 496 "Evaluate sexp before point; print value in minibuffer.
496 With argument, print output into current buffer." 497 With argument, print output into current buffer."
497 (let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t))) 498 (let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t)))