Commit | Line | Data |
---|---|---|
d501f516 ER |
1 | ;;; unused.el --- editing commands in GNU Emacs that turned out not to be used. |
2 | ||
d46bac56 ER |
3 | ;; Maintainer: FSF |
4 | ;; Last-Modified: 14 Dec 1985 | |
d7b4d18f | 5 | ;; Keywords: emulations |
d46bac56 ER |
6 | |
7 | ;;; Commentary: | |
8 | ||
d501f516 | 9 | ;; These were added with an eye to making possible a more CCA-compatible |
ff9c6df4 JB |
10 | ;; command set; but that turned out not to be interesting. |
11 | ||
d46bac56 ER |
12 | ;;; Code: |
13 | ||
ff9c6df4 JB |
14 | (defun mark-beginning-of-buffer () |
15 | "Set mark at the beginning of the buffer." | |
16 | (interactive) | |
17 | (push-mark (point-min))) | |
18 | ||
19 | (defun mark-end-of-buffer () | |
20 | "Set mark at the end of the buffer." | |
21 | (interactive) | |
22 | (push-mark (point-max))) | |
23 | ||
24 | (defun upcase-char (arg) | |
25 | "Uppercasify ARG chars starting from point. Point doesn't move" | |
26 | (interactive "p") | |
27 | (save-excursion | |
28 | (upcase-region (point) (progn (forward-char arg) (point))))) | |
29 | ||
30 | (defun forward-to-word (arg) | |
31 | "Move forward until encountering the beginning of a word. | |
32 | With argument, do this that many times." | |
33 | (interactive "p") | |
34 | (or (re-search-forward (if (> arg 0) "\\W\\b" "\\b\\W") nil t arg) | |
35 | (goto-char (if (> arg 0) (point-max) (point-min))))) | |
36 | ||
37 | (defun backward-to-word (arg) | |
38 | "Move backward until encountering the end of a word. | |
39 | With argument, do this that many times." | |
40 | (interactive "p") | |
41 | (forward-to-word (- arg))) | |
d501f516 ER |
42 | |
43 | ;;; unused.el ends here |