mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-15 09:47:20 +00:00
118 lines
3.8 KiB
EmacsLisp
118 lines
3.8 KiB
EmacsLisp
;;; 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
|