[Emacs-diffs] Changes to emacs/lisp/misc.el

[Juanma Barranquero]

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