From ff9c6df4b0766bef72f6b1f4c8fca65737d9ad6b Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sat, 14 Dec 1985 16:58:10 +0000 Subject: [PATCH] Initial revision --- lisp/unused.el | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 lisp/unused.el diff --git a/lisp/unused.el b/lisp/unused.el new file mode 100644 index 00000000000..0808593f6e6 --- /dev/null +++ b/lisp/unused.el @@ -0,0 +1,32 @@ +;; 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))) -- 2.39.5