Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 90737:95d0cdf160ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 586-614) - Update from CVS - Update from erc--emacs--22 - Merge from gnus--rel--5.10 - Merge from erc--main--0 - Make byte compiler correctly write circular constants * gnus--rel--5.10 (patch 186-196) - Update from CVS - Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-162
author Miles Bader <miles@gnu.org>
date Fri, 26 Jan 2007 06:16:11 +0000
parents 138ce2701550 7a3f13e2dd57
children 52a7f3f50b89
comparison
equal deleted inserted replaced
90736:ef1369583937 90737:95d0cdf160ea
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,
4 ;; 2005, 2006 Free Software Foundation, Inc. 4 ;; 2005, 2006, 2007 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.
488 (end (or (next-single-char-property-change (point) 'printed-value) (point))) 488 (end (or (next-single-char-property-change (point) 'printed-value) (point)))
489 (standard-output (current-buffer)) 489 (standard-output (current-buffer))
490 (point (point))) 490 (point (point)))
491 (delete-region beg end) 491 (delete-region beg end)
492 (insert (nth 1 value)) 492 (insert (nth 1 value))
493 (or (= beg point)
494 (setq point (1- (point))))
493 (last-sexp-setup-props beg (point) 495 (last-sexp-setup-props beg (point)
494 (nth 0 value) 496 (nth 0 value)
495 (nth 2 value) 497 (nth 2 value)
496 (nth 1 value)) 498 (nth 1 value))
497 (goto-char (min (point-max) point))))))) 499 (goto-char (min (point-max) point)))))))