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

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.