Mercurial > emacs
comparison lisp/unused.el @ 1:08ab8bcdd648
Initial revision
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Sat, 14 Dec 1985 16:58:10 +0000 |
parents | |
children | fec3f9a1e3e5 |
comparison
equal
deleted
inserted
replaced
0:da530eb93c1a | 1:08ab8bcdd648 |
---|---|
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))) |