Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 90072:cb67264d6096

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-2 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-83 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-84 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-3 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-4 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-5 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-6 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-11 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-12 Remove "-face" suffix from lazy-highlight face name * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-13 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-16 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-17 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-18 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-21 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-22 <no summary provided> * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-23 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-39 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-40 Fix regressions from latest reftex update * miles@gnu.org--gnu-2005/gnus--rel--5.10--base-0 tag of miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-82 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-1 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-2 Merge from miles@gnu.org--gnu-2004 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-3 Merge from emacs--cvs-trunk--0
author Miles Bader <miles@gnu.org>
date Sun, 16 Jan 2005 03:40:12 +0000
parents ff0e824afa37 04043e03826a
children f8a7a9ba3d08
comparison
equal deleted inserted replaced
90071:f6b4d0ebf147 90072:cb67264d6096
1123 (lisp-indent-line)) 1123 (lisp-indent-line))
1124 (indent-sexp endmark) 1124 (indent-sexp endmark)
1125 (set-marker endmark nil)))) 1125 (set-marker endmark nil))))
1126 1126
1127 (defun indent-pp-sexp (&optional arg) 1127 (defun indent-pp-sexp (&optional arg)
1128 "Indent each line of the list or, with prefix ARG, pretty-printify the list." 1128 "Indent each line of the list starting just after point, or prettyprint it.
1129 A prefix argument specifies pretty-printing."
1129 (interactive "P") 1130 (interactive "P")
1130 (if arg 1131 (if arg
1131 (save-excursion 1132 (save-excursion
1132 (save-restriction 1133 (save-restriction
1133 (narrow-to-region (point) (progn (forward-sexp 1) (point))) 1134 (narrow-to-region (point) (progn (forward-sexp 1) (point)))