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