home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-18.59-bin.lha / lib / emacs / 18.59 / lisp / unused.el < prev    next >
Lisp/Scheme  |  1985-12-14  |  1KB  |  33 lines
  1. ;; Editing commands in GNU Emacs that turned out not to be used.
  2. ;; They were added with an eye to making possible a more CCA-compatible
  3. ;; command set; but that turned out not to be interesting.
  4.  
  5. (defun mark-beginning-of-buffer ()
  6.   "Set mark at the beginning of the buffer."
  7.   (interactive)
  8.   (push-mark (point-min)))
  9.  
  10. (defun mark-end-of-buffer ()
  11.   "Set mark at the end of the buffer."
  12.   (interactive)
  13.   (push-mark (point-max)))
  14.  
  15. (defun upcase-char (arg)
  16.   "Uppercasify ARG chars starting from point.  Point doesn't move"
  17.   (interactive "p")
  18.   (save-excursion
  19.     (upcase-region (point) (progn (forward-char arg) (point)))))
  20.  
  21. (defun forward-to-word (arg)
  22.   "Move forward until encountering the beginning of a word.
  23. With argument, do this that many times."
  24.   (interactive "p")
  25.   (or (re-search-forward (if (> arg 0) "\\W\\b" "\\b\\W") nil t arg)
  26.       (goto-char (if (> arg 0) (point-max) (point-min)))))
  27.  
  28. (defun backward-to-word (arg)
  29.   "Move backward until encountering the end of a word.
  30. With argument, do this that many times."
  31.   (interactive "p")
  32.   (forward-to-word (- arg)))
  33.