| 1 | ;;; unused.el --- editing commands in GNU Emacs that turned out not to be used. |
| 2 | ;;; This file is in the public domain, as it was distributed in |
| 3 | ;;; 1985 or 1986 without a copyright notice. Written by RMS. |
| 4 | |
| 5 | ;; Maintainer: FSF |
| 6 | ;; Keywords: emulations |
| 7 | |
| 8 | ;;; Commentary: |
| 9 | |
| 10 | ;; These were added with an eye to making possible a more CCA-compatible |
| 11 | ;; command set; but that turned out not to be interesting. |
| 12 | |
| 13 | ;;; Code: |
| 14 | |
| 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))) |
| 43 | |
| 44 | ;;; unused.el ends here |