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     ! 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.