mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-24 19:03:29 +00:00
Code Issues Releases Activity

* lisp/paren.el (show-paren--default, show-paren-function): Add docstring.

Browse Source
This commit is contained in:
Hong Xu 2016-11-02 12:06:12 -07:00 committed by Noam Postavsky
parent 2d671fda52
commit 6de8429c29
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/paren.el
View File

@ -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