diff options
Diffstat (limited to 'lisp/gosmacs.el')
| -rw-r--r-- | lisp/gosmacs.el | 117 |
1 files changed, 0 insertions, 117 deletions
diff --git a/lisp/gosmacs.el b/lisp/gosmacs.el deleted file mode 100644 index 93bbbaa5b80..00000000000 --- a/lisp/gosmacs.el +++ /dev/null @@ -1,117 +0,0 @@ -;;; gosmacs.el --- rebindings to imitate Gosmacs. - -;; Copyright (C) 1986 Free Software Foundation, Inc. - -;; Maintainer: FSF -;; Keywords: emulations - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to -;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. - -;;; Commentary: - -;; Make GNU Emacs look like Gosling Emacs. `M-x set-gosmacs-bindings' -;; does this change; `M-x set-gnu-bindings' undoes it. - -;;; Code: - -(require 'mlsupport) - -(defvar non-gosmacs-binding-alist nil) - -;;;###autoload -(defun set-gosmacs-bindings () - "Rebind some keys globally to make GNU Emacs resemble Gosling Emacs. -Use \\[set-gnu-bindings] to restore previous global bindings." - (interactive) - (setq non-gosmacs-binding-alist - (rebind-and-record - '(("\C-x\C-e" compile) - ("\C-x\C-f" save-buffers-kill-emacs) - ("\C-x\C-i" insert-file) - ("\C-x\C-m" save-some-buffers) - ("\C-x\C-n" next-error) - ("\C-x\C-o" switch-to-buffer) - ("\C-x\C-r" insert-file) - ("\C-x\C-u" undo) - ("\C-x\C-v" find-file-other-window) - ("\C-x\C-z" shrink-window) - ("\C-x!" shell-command) - ("\C-xd" delete-window) - ("\C-xn" gosmacs-next-window) - ("\C-xp" gosmacs-previous-window) - ("\C-xz" enlarge-window) - ("\C-z" scroll-one-line-up) - ("\e\C-c" save-buffers-kill-emacs) - ("\e!" line-to-top-of-window) - ("\e(" backward-paragraph) - ("\e)" forward-paragraph) - ("\e?" apropos) - ("\eh" delete-previous-word) - ("\ej" indent-sexp) - ("\eq" query-replace) - ("\er" replace-string) - ("\ez" scroll-one-line-down) - ("\C-_" suspend-emacs))))) - -(defun rebind-and-record (bindings) - "Establish many new global bindings and record the bindings replaced. -Arg BINDINGS is an alist whose elements are (KEY DEFINITION). -Returns a similar alist whose elements describe the same KEYs -but each with the old definition that was replaced," - (let (old) - (while bindings - (let* ((this (car bindings)) - (key (car this)) - (newdef (nth 1 this))) - (setq old (cons (list key (lookup-key global-map key)) old)) - (global-set-key key newdef)) - (setq bindings (cdr bindings))) - (nreverse old))) - -(defun set-gnu-bindings () - "Restore the global bindings that were changed by \\[set-gosmacs-bindings]." - (interactive) - (rebind-and-record non-gosmacs-binding-alist)) - -(defun gosmacs-previous-window () - "Select the window above or to the left of the window now selected. -From the window at the upper left corner, select the one at the lower right." - (interactive) - (select-window (previous-window))) - -(defun gosmacs-next-window () - "Select the window below or to the right of the window now selected. -From the window at the lower right corner, select the one at the upper left." - (interactive) - (select-window (next-window))) - -(defun scroll-one-line-up (&optional arg) - "Scroll the selected window up (forward in the text) one line (or N lines)." - (interactive "p") - (scroll-up (or arg 1))) - -(defun scroll-one-line-down (&optional arg) - "Scroll the selected window down (backward in the text) one line (or N)." - (interactive "p") - (scroll-down (or arg 1))) - -(defun line-to-top-of-window () - "Scroll the selected window up so that the current line is at the top." - (interactive) - (recenter 0)) - -;;; gosmacs.el ends here |