procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Spelling and typo fixes.

Browse source
This commit is contained in:
Paul Eggert 2013-12-27 22:37:35 -08:00
parent 4364185f73
commit 7e99158aac
3 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/abbrev.el
View file

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

12
lisp/elec-pair.el
View file

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

4
test/automated/electric-tests.el
View file

@ -186,7 +186,7 @@ Should %s \"%s\" and point at %d"
bindings
fixture-fn))))))
;;; Basic pairings and skippings
;;; Basic pairs and skips
;;;
(define-electric-pair-test balanced-situation
" (()) " "(((((((" :skip-pair-string "ppppppp"
@ -237,7 +237,7 @@ Should %s \"%s\" and point at %d"
(define-electric-pair-test find-matching-different-paren-type-inside-list
"( ()]) " "-[-----" :skip-pair-string "-------")
(define-electric-pair-test ignore-different-unmatching-paren-type
(define-electric-pair-test ignore-different-nonmatching-paren-type
"( ()]) " "-(-----" :skip-pair-string "-p-----")
(define-electric-pair-test autopair-keep-least-amount-of-mixed-unbalance