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