From 6de8429c2989d0fccab0a485c7f28e522e07fa92 Mon Sep 17 00:00:00 2001 From: Hong Xu Date: Wed, 2 Nov 2016 12:06:12 -0700 Subject: * lisp/paren.el (show-paren--default, show-paren-function): Add docstring. --- lisp/paren.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lisp/paren.el') 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 -- cgit v1.2.1