diff options
| -rw-r--r-- | lisp/misc.el | 32 |
1 files changed, 32 insertions, 0 deletions
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 |