Mercurial > emacs
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)) |