diff options
| author | Hong Xu <hong@topbug.net> | 2016-11-02 12:06:12 -0700 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-03-14 00:07:14 -0400 |
| commit | 6de8429c2989d0fccab0a485c7f28e522e07fa92 (patch) | |
| tree | 1d3e92a39e8f992bdc12fb2e8679864c89cda241 | |
| parent | 2d671fda52ab8be4b1c7a990ffe2c82a1a6914fe (diff) | |
| download | emacs-6de8429c2989d0fccab0a485c7f28e522e07fa92.tar.gz | |
* lisp/paren.el (show-paren--default, show-paren-function): Add docstring.
| -rw-r--r-- | lisp/paren.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/paren.el b/lisp/paren.el index 4a83fa1cb4c..562831dae9a 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -181,6 +181,9 @@ if there's no opener/closer near point, or a list of the form Where HERE-BEG..HERE-END is expected to be near point.") (defun show-paren--default () + "Finds the opener/closer near point and its match. + +It is the default value of `show-paren-data-function'." (let* ((temp (show-paren--locate-near-paren)) (dir (car temp)) (outside (cdr temp)) @@ -233,9 +236,8 @@ Where HERE-BEG..HERE-END is expected to be near point.") (if (= dir 1) pos (1+ pos)) mismatch))))))) -;; Find the place to show, if there is one, -;; and show it until input arrives. (defun show-paren-function () + "Highlight the parentheses until the next input arrives." (let ((data (and show-paren-mode (funcall show-paren-data-function)))) (if (not data) (progn |