diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-03-16 20:39:07 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-03-16 20:39:07 +0000 |
| commit | 49116ac071969bee7f129bf7ce725c7a5b0b0fc5 (patch) | |
| tree | 60c249f15b04478367256fef95c6fd7557f263b9 /lisp/case-table.el | |
| parent | 3b4a6e271d44955328c39de1475e42cf0b4cd637 (diff) | |
| download | emacs-49116ac071969bee7f129bf7ce725c7a5b0b0fc5.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/case-table.el')
| -rw-r--r-- | lisp/case-table.el | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/lisp/case-table.el b/lisp/case-table.el index f10580fe575..2de955de2cd 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el @@ -46,7 +46,7 @@ (defun invert-case (count) "Change the case of the character just after point and move over it. -With arg, applies to that many chars. +With prefix arg, applies to that many chars. Negative arg inverts characters before point but does not move." (interactive "p") (if (< count 0) @@ -63,9 +63,8 @@ Negative arg inverts characters before point but does not move." (defun set-case-syntax-delims (l r table) "Make characters L and R a matching pair of non-case-converting delimiters. -Sets the entries for L and R in standard-case-table, -standard-syntax-table, and text-mode-syntax-table to indicate -left and right delimiters." +Sets the entries for L and R in `standard-case-table', `standard-syntax-table', +and `text-mode-syntax-table' to indicate left and right delimiters." (aset (car table) l l) (aset (car table) r r) (modify-syntax-entry l (concat "(" (char-to-string r) " ") @@ -79,10 +78,10 @@ left and right delimiters." (defun set-case-syntax-pair (uc lc table) "Make characters UC and LC a pair of inter-case-converting letters. -Sets the entries for characters UC and LC in -standard-case-table, standard-syntax-table, and -text-mode-syntax-table to indicate an (uppercase, lowercase) -pair of letters." +Sets the entries for characters UC and LC in `standard-case-table', +`standard-syntax-table' and `text-mode-syntax-table' to indicate an +(uppercase, lowercase) pair of letters." + (aset (car table) uc lc) (modify-syntax-entry lc "w " (standard-syntax-table)) (modify-syntax-entry lc "w " text-mode-syntax-table) @@ -91,8 +90,8 @@ pair of letters." (defun set-case-syntax (c syntax table) "Make characters C case-invariant with syntax SYNTAX. -Sets the entries for character C in standard-case-table, -standard-syntax-table, and text-mode-syntax-table to indicate this. +Sets the entries for character C in `standard-case-table', +`standard-syntax-table' and `text-mode-syntax-table' to indicate this. SYNTAX should be \" \", \"w\", \".\" or \"_\"." (aset (car table) c c) (modify-syntax-entry c syntax (standard-syntax-table)) |