Return to unused.el CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp

Annotation of 43BSD/contrib/emacs/lisp/unused.el, revision 1.1.1.1

1.1       root        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)))

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.