diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/abbrev.el | 2 | ||||
| -rw-r--r-- | lisp/elec-pair.el | 12 |
2 files changed, 7 insertions, 7 deletions
diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 458d8741ac8..10b07af1f59 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -421,7 +421,7 @@ A prefix argument means don't query; expand all abbrevs." \(fn ABBREV PROP)") (defalias 'abbrev-put 'put - "Set the property PROP of abbrev ABREV to value VAL. + "Set the property PROP of abbrev ABBREV to value VAL. See `define-abbrev' for the effect of some special properties. \(fn ABBREV PROP VAL)") diff --git a/lisp/elec-pair.el b/lisp/elec-pair.el index f3832004751..1691fbbfec3 100644 --- a/lisp/elec-pair.el +++ b/lisp/elec-pair.el @@ -92,8 +92,8 @@ closer." The default values of `electric-pair-inhibit-predicate' and `electric-pair-skip-self' check this variable before delegating to other -predicates reponsible for making decisions on whether to pair/skip some -characters based on the actual state of the buffer's parenthesis and +predicates responsible for making decisions on whether to pair/skip some +characters based on the actual state of the buffer's parentheses and quotes." :version "24.4" :group 'electricity @@ -274,17 +274,17 @@ when to fallback to `parse-partial-sexp'." ;; doesn't keep `electric-pair-mode' from balancing your ()'s and your ;; []'s. (defun electric-pair--balance-info (direction string-or-comment) - "Examine lists forward or backward according to DIRECTIONS's sign. + "Examine lists forward or backward according to DIRECTION's sign. STRING-OR-COMMENT is info suitable for running `parse-partial-sexp'. -Return a cons of two descritions (MATCHED-P . PAIR) for the +Return a cons of two descriptions (MATCHED-P . PAIR) for the innermost and outermost lists that enclose point. The outermost list enclosing point is either the first top-level or first -mismatched list found by uplisting. +mismatched list found by listing up. If the outermost list is matched, don't rely on its PAIR. If -point is not enclosed by any lists, return ((T) (T))." +point is not enclosed by any lists, return ((T) . (T))." (let* (innermost outermost (table (if string-or-comment |