Commit | Line | Data |
---|---|---|
ff9c6df4 JB |
1 | ;; Editing commands in GNU Emacs that turned out not to be used. |
2 | ;; They were added with an eye to making possible a more CCA-compatible | |
3 | ;; command set; but that turned out not to be interesting. | |
4 | ||
5 | (defun mark-beginning-of-buffer () | |
6 | "Set mark at the beginning of the buffer." | |
7 | (interactive) | |
8 | (push-mark (point-min))) | |
9 | ||
10 | (defun mark-end-of-buffer () | |
11 | "Set mark at the end of the buffer." | |
12 | (interactive) | |
13 | (push-mark (point-max))) | |
14 | ||
15 | (defun upcase-char (arg) | |
16 | "Uppercasify ARG chars starting from point. Point doesn't move" | |
17 | (interactive "p") | |
18 | (save-excursion | |
19 | (upcase-region (point) (progn (forward-char arg) (point))))) | |
20 | ||
21 | (defun forward-to-word (arg) | |
22 | "Move forward until encountering the beginning of a word. | |
23 | With argument, do this that many times." | |
24 | (interactive "p") | |
25 | (or (re-search-forward (if (> arg 0) "\\W\\b" "\\b\\W") nil t arg) | |
26 | (goto-char (if (> arg 0) (point-max) (point-min))))) | |
27 | ||
28 | (defun backward-to-word (arg) | |
29 | "Move backward until encountering the end of a word. | |
30 | With argument, do this that many times." | |
31 | (interactive "p") | |
32 | (forward-to-word (- arg))) |