Commit 6de8429c authored by Hong Xu's avatar Hong Xu Committed by Noam Postavsky

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

parent 2d671fda
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment