diff options
| author | Juanma Barranquero | 2005-07-20 21:48:43 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-07-20 21:48:43 +0000 |
| commit | bd7c852ac7f13c844f9d68902f889d9a6ef5383b (patch) | |
| tree | 33afbe1a0cec5a0fff8a62d9529dc8f4467ff4ca | |
| parent | 01cdabc616023c38eb645ea8d1ac74dc848f4eeb (diff) | |
| download | emacs-bd7c852ac7f13c844f9d68902f889d9a6ef5383b.tar.gz emacs-bd7c852ac7f13c844f9d68902f889d9a6ef5383b.zip | |
(s-region-bind): Doc fix.
(s-region-move-p1, s-region-move-p2): Fix typos in docstrings.
| -rw-r--r-- | lisp/s-region.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/s-region.el b/lisp/s-region.el index d3fa6b1f307..b28ab222434 100644 --- a/lisp/s-region.el +++ b/lisp/s-region.el | |||
| @@ -63,12 +63,12 @@ | |||
| 63 | (error "Non-vector key: %S" key))) | 63 | (error "Non-vector key: %S" key))) |
| 64 | 64 | ||
| 65 | (defun s-region-move-p1 (&rest arg) | 65 | (defun s-region-move-p1 (&rest arg) |
| 66 | "This is an overlay function to point-moving keys that are interactive \"p\"" | 66 | "This is an overlay function to point-moving keys that are interactive \"p\"." |
| 67 | (interactive "p") | 67 | (interactive "p") |
| 68 | (apply (function s-region-move) arg)) | 68 | (apply (function s-region-move) arg)) |
| 69 | 69 | ||
| 70 | (defun s-region-move-p2 (&rest arg) | 70 | (defun s-region-move-p2 (&rest arg) |
| 71 | "This is an overlay function to point-moving keys that are interactive \"P\"" | 71 | "This is an overlay function to point-moving keys that are interactive \"P\"." |
| 72 | (interactive "P") | 72 | (interactive "P") |
| 73 | (apply (function s-region-move) arg)) | 73 | (apply (function s-region-move) arg)) |
| 74 | 74 | ||
| @@ -83,10 +83,10 @@ | |||
| 83 | (delete-overlay s-region-overlay)) | 83 | (delete-overlay s-region-overlay)) |
| 84 | 84 | ||
| 85 | (defun s-region-bind (keylist &optional map) | 85 | (defun s-region-bind (keylist &optional map) |
| 86 | "Bind shifted keys in KEYLIST to s-region-move-p1 or s-region-move-p2. | 86 | "Bind shifted keys in KEYLIST to `s-region-move-p1' or `s-region-move-p2'. |
| 87 | Each key in KEYLIST is shifted and bound to one of the s-region-move | 87 | Each key in KEYLIST is shifted and bound to one of the `s-region-move' |
| 88 | functions provided it is already bound to some command or other. | 88 | functions provided it is already bound to some command or other. |
| 89 | Optional third argument MAP specifies keymap to add binding to, defaulting | 89 | Optional second argument MAP specifies keymap to add binding to, defaulting |
| 90 | to global keymap." | 90 | to global keymap." |
| 91 | (let ((p2 (list 'scroll-up 'scroll-down | 91 | (let ((p2 (list 'scroll-up 'scroll-down |
| 92 | 'beginning-of-buffer 'end-of-buffer))) | 92 | 'beginning-of-buffer 'end-of-buffer))) |