From 9bccd1e395996be25513711983d9d66156866bc4 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 30 May 2003 23:15:40 +0000 Subject: [PATCH] (mark-beginning-of-buffer, mark-end-of-buffer, upcase-char, forward-to-word, backward-to-word): Moved from unused.el. --- lisp/misc.el | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/lisp/misc.el b/lisp/misc.el index fa8471460b7..a477fec5b0e 100644 --- a/lisp/misc.el +++ b/lisp/misc.el @@ -58,6 +58,38 @@ The characters copied are inserted in the buffer before point." (+ n (point))))))) (insert string))) +;; These 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))) + (provide 'misc) ;;; misc.el ends here -- 2.11.4.GIT