comparison lisp/emacs-lisp/lisp.el @ 62455:072c8e0cc835

(check-parens): Fix docstring.
author Lute Kamstra <lute@gnu.org>
date Wed, 18 May 2005 08:28:52 +0000
parents 99b039f2f040
children f8e5c41bb4b8 f042e7c0fe20
comparison
equal deleted inserted replaced
62454:6197210bddc8 62455:072c8e0cc835
1 ;;; lisp.el --- Lisp editing commands for Emacs 1 ;;; lisp.el --- Lisp editing commands for Emacs
2 2
3 ;; Copyright (C) 1985, 86, 1994, 2000, 2004 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1986, 1994, 2000, 2004, 2005
4 ;; Free Software Foundation, Inc.
4 5
5 ;; Maintainer: FSF 6 ;; Maintainer: FSF
6 ;; Keywords: lisp, languages 7 ;; Keywords: lisp, languages
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
485 (defun check-parens () ; lame name? 486 (defun check-parens () ; lame name?
486 "Check for unbalanced parentheses in the current buffer. 487 "Check for unbalanced parentheses in the current buffer.
487 More accurately, check the narrowed part of the buffer for unbalanced 488 More accurately, check the narrowed part of the buffer for unbalanced
488 expressions (\"sexps\") in general. This is done according to the 489 expressions (\"sexps\") in general. This is done according to the
489 current syntax table and will find unbalanced brackets or quotes as 490 current syntax table and will find unbalanced brackets or quotes as
490 appropriate. (See Info node `(emacs)Lists and Sexps'.) If imbalance 491 appropriate. (See Info node `(emacs)Parentheses'.) If imbalance is
491 is found, an error is signalled and point is left at the first 492 found, an error is signalled and point is left at the first unbalanced
492 unbalanced character." 493 character."
493 (interactive) 494 (interactive)
494 (condition-case data 495 (condition-case data
495 ;; Buffer can't have more than (point-max) sexps. 496 ;; Buffer can't have more than (point-max) sexps.
496 (scan-sexps (point-min) (point-max)) 497 (scan-sexps (point-min) (point-max))
497 (scan-error (goto-char (nth 2 data)) 498 (scan-error (goto-char (nth 2 data))