Return to gosling.el CVS log

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

Annotation of 43BSD/contrib/emacs/lisp/gosling.el, revision 1.1

1.1     ! root        1: ;;; untested file to set unipress-like key bindings.  from netnews.
        !             2: 
        !             3: (defun set-unipress-bindings ()
        !             4:   (interactive)
        !             5: ; (global-set-key "\^c"    'save-buffers-kill-emacs)
        !             6:   (global-set-key "\^x\^e" 'compile)
        !             7:   (global-set-key "\^x\^f" 'save-buffers-kill-emacs)
        !             8:   (global-set-key "\^X\^I" 'insert-file)
        !             9:   (global-set-key "\^X\^M" 'save-some-buffers)
        !            10:   (global-set-key "\^X\^N" 'next-error)
        !            11:   (global-set-key "\^X\^O" 'switch-to-buffer)
        !            12:   (global-set-key "\^X\^R" 'insert-file)
        !            13:   (global-set-key "\^X\^U" 'advertised-undo)
        !            14:   (global-set-key "\^X\^V" 'find-file-other-window)
        !            15:   (global-set-key "\^X\^Z" 'shrink-window)
        !            16:   (global-set-key "\^X!"   'shell-command)
        !            17:   (global-set-key "\^Xd"   'delete-window)
        !            18:   (global-set-key "\^Xn"   'unipress-next-window)
        !            19:   (global-set-key "\^Xp"   'unipress-previous-window)
        !            20:   (global-set-key "\^Xz"   'enlarge-window)
        !            21:   (global-set-key "\^Z"    'scroll-one-line-up)
        !            22:   (global-set-key "\e\^C"  'save-buffers-kill-emacs)
        !            23:   (global-set-key "\e!"    'line-to-top-of-window)
        !            24:   (global-set-key "\e("    'backward-paragraph)
        !            25:   (global-set-key "\e)"    'forward-paragraph)
        !            26:   (global-set-key "\e?"    'apropos)
        !            27:   (global-set-key "\eh"    'delete-previous-word)
        !            28:   (global-set-key "\ej"    'indent-sexp)
        !            29:   (global-set-key "\eq"    'query-replace)
        !            30:   (global-set-key "\er"    'replace-string)
        !            31:   (global-set-key "\ez"    'scroll-one-line-down)
        !            32:   (global-set-key "\^_"    'suspend-emacs))
        !            33: 
        !            34: (defun set-gnu-bindings ()
        !            35:   (interactive)
        !            36:   (global-set-key "\^c"    'exit-recursive-edit)
        !            37:   (global-set-key "\^x\^e" 'eval-last-sexp)
        !            38:   (global-set-key "\^x\^f" 'find-file)
        !            39:   (global-set-key "\^X\^I" 'indent-rigidly)
        !            40:   (global-unset-key "\^X\^M")
        !            41:   (global-set-key "\^X\^N" 'set-goal-column)
        !            42:   (global-set-key "\^X\^O" 'delete-blank-lines)
        !            43:   (global-set-key "\^X\^R" 'find-file-read-only)
        !            44:   (global-set-key "\^X\^U" 'upcase-region)
        !            45:   (global-set-key "\^X\^V" 'find-alternate-file)
        !            46:   (global-set-key "\^X\^Z" 'suspend-emacs)
        !            47:   (global-unset-key "\^X!")
        !            48:   (global-set-key "\^Xd"   'dired)
        !            49:   (global-set-key "\^Xn"   'narrow-to-region)
        !            50:   (global-set-key "\^Xp"   'narrow-to-page)
        !            51:   (global-unset-key "\^Xz")
        !            52:   (global-set-key "\^Z"    'suspend-emacs)
        !            53:   (global-set-key "\e\^C"  'exit-recursive-edit)
        !            54:   (global-set-key "\e!"    'shell-command)
        !            55:   (global-set-key "\e("    'insert-parentheses)
        !            56:   (global-set-key "\e)"    'move-past-close-and-reindent)
        !            57:   (global-unset-key "\e?")
        !            58:   (global-set-key "\eh"    'mark-paragraph)
        !            59:   (global-set-key "\ej"    'indent-new-comment-line)
        !            60:   (global-set-key "\eq"    'fill-paragraph)
        !            61:   (global-set-key "\er"    'move-to-window-line)
        !            62:   (global-set-key "\ez"    'zap-to-char)
        !            63:   (global-unset-key "\^_"))
        !            64: 
        !            65: (defun unipress-previous-window ()
        !            66:   (interactive)
        !            67:   (select-window (previous-window)))
        !            68: 
        !            69: (defun unipress-next-window ()
        !            70:   (interactive)
        !            71:   (select-window (next-window)))
        !            72: 
        !            73: (defun scroll-one-line-up ()
        !            74:   (interactive)
        !            75:   (scroll-up 1))
        !            76: 
        !            77: (defun scroll-one-line-down ()
        !            78:   (interactive)
        !            79:   (scroll-down 1))
        !            80: 
        !            81: (defun line-to-top-of-window ()
        !            82:   (interactive)
        !            83:   (recenter 0))

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