Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 102263:38cb917d6f8f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eval-last-sexp): Mention truncation in doc.
author Glenn Morris <rgm@gnu.org>
date Wed, 25 Feb 2009 08:18:00 +0000
parents b9801521d078
children 3193dcef2e7b
comparison
equal deleted inserted replaced
102262:dc8e84db30d8 102263:38cb917d6f8f
1 ;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands 1 ;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands
2 2
3 ;; Copyright (C) 1985, 1986, 1999, 2000, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1985, 1986, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. 4 ;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
5 5
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Keywords: lisp, languages 7 ;; Keywords: lisp, languages
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
721 (defvar eval-last-sexp-fake-value (make-symbol "t")) 721 (defvar eval-last-sexp-fake-value (make-symbol "t"))
722 722
723 (defun eval-last-sexp (eval-last-sexp-arg-internal) 723 (defun eval-last-sexp (eval-last-sexp-arg-internal)
724 "Evaluate sexp before point; print value in minibuffer. 724 "Evaluate sexp before point; print value in minibuffer.
725 Interactively, with prefix argument, print output into current buffer. 725 Interactively, with prefix argument, print output into current buffer.
726 Truncates long output according to the value of the variables
727 `eval-expression-print-length' and `eval-expression-print-level'.
726 728
727 If `eval-expression-debug-on-error' is non-nil, which is the default, 729 If `eval-expression-debug-on-error' is non-nil, which is the default,
728 this command arranges for all errors to enter the debugger." 730 this command arranges for all errors to enter the debugger."
729 (interactive "P") 731 (interactive "P")
730 (if (null eval-expression-debug-on-error) 732 (if (null eval-expression-debug-on-error)