home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-19.28-src.tgz / tar.out / fsf / emacs / lisp / unused.el < prev    next >
Lisp/Scheme  |  1996-09-28  |  1KB  |  45 lines
  1. ;;; unused.el --- editing commands in GNU Emacs that turned out not to be used.
  2. ;;; This file is in the public domain, as it was distributed in
  3. ;;; 1985 or 1986 without a copyright notice.  Written by RMS.
  4.  
  5. ;; Maintainer: FSF
  6. ;; Keywords: emulations
  7.  
  8. ;;; Commentary:
  9.  
  10. ;; These were added with an eye to making possible a more CCA-compatible
  11. ;; command set; but that turned out not to be interesting.
  12.  
  13. ;;; Code:
  14.  
  15. (defun mark-beginning-of-buffer ()
  16.   "Set mark at the beginning of the buffer."
  17.   (interactive)
  18.   (push-mark (point-min)))
  19.  
  20. (defun mark-end-of-buffer ()
  21.   "Set mark at the end of the buffer."
  22.   (interactive)
  23.   (push-mark (point-max)))
  24.  
  25. (defun upcase-char (arg)
  26.   "Uppercasify ARG chars starting from point.  Point doesn't move"
  27.   (interactive "p")
  28.   (save-excursion
  29.     (upcase-region (point) (progn (forward-char arg) (point)))))
  30.  
  31. (defun forward-to-word (arg)
  32.   "Move forward until encountering the beginning of a word.
  33. With argument, do this that many times."
  34.   (interactive "p")
  35.   (or (re-search-forward (if (> arg 0) "\\W\\b" "\\b\\W") nil t arg)
  36.       (goto-char (if (> arg 0) (point-max) (point-min)))))
  37.  
  38. (defun backward-to-word (arg)
  39.   "Move backward until encountering the end of a word.
  40. With argument, do this that many times."
  41.   (interactive "p")
  42.   (forward-to-word (- arg)))
  43.  
  44. ;;; unused.el ends here
  45.