Mercurial > emacs
view lisp/unused.el @ 145:1a0f15a66c06
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 24 Dec 1990 22:05:55 +0000 |
parents | 08ab8bcdd648 |
children | fec3f9a1e3e5 |
line wrap: on
line source
;; Editing commands in GNU Emacs that turned out not to be used. ;; They were added with an eye to making possible a more CCA-compatible ;; command set; but that turned out not to be interesting. (defun mark-beginning-of-buffer () "Set mark at the beginning of the buffer." (interactive) (push-mark (point-min))) (defun mark-end-of-buffer () "Set mark at the end of the buffer." (interactive) (push-mark (point-max))) (defun upcase-char (arg) "Uppercasify ARG chars starting from point. Point doesn't move" (interactive "p") (save-excursion (upcase-region (point) (progn (forward-char arg) (point))))) (defun forward-to-word (arg) "Move forward until encountering the beginning of a word. With argument, do this that many times." (interactive "p") (or (re-search-forward (if (> arg 0) "\\W\\b" "\\b\\W") nil t arg) (goto-char (if (> arg 0) (point-max) (point-min))))) (defun backward-to-word (arg) "Move backward until encountering the end of a word. With argument, do this that many times." (interactive "p") (forward-to-word (- arg)))