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. 33With 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. 40With argument, do this that many times." 41 (interactive "p") 42 (forward-to-word (- arg))) 43 44;;; unused.el ends here 45