[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/misc.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/misc.el |
Date: |
Fri, 30 May 2003 19:15:40 -0400 |
Index: emacs/lisp/misc.el
diff -c emacs/lisp/misc.el:1.8 emacs/lisp/misc.el:1.9
*** emacs/lisp/misc.el:1.8 Thu May 2 01:37:47 2002
--- emacs/lisp/misc.el Fri May 30 19:15:40 2003
***************
*** 58,63 ****
--- 58,95 ----
(+ 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/misc.el,
Juanma Barranquero <=