File psl-1983/x-psl/nmode.init artifact 54466585b2 part of check-in 9992369dd3


% This is the "default" NMODE.INIT file.  It will be evaluated when NMODE starts
% up, unless the file *NMODE.INIT exists, in which case that file will be
% evaluated instead.  It is recommended that any personal NMODE.INIT file begin
% with the form:
%
% (nmode-read-and-evaluate-file nmode-default-init-file-name)
%
% which will cause this file to be evaluated first.

% Make the BACKSPACE key behave like Rubout!
% Make M-BACKSPACE behave like M-Rubout!

(remove-from-command-list 'Read-Only-Text-Command-List (x-char BACKSPACE))
(remove-from-command-list 'Lisp-Command-List (x-char M-BACKSPACE))
(add-to-command-list 'Text-Command-List
		     (x-char BACKSPACE)
		     'delete-backward-character-command)
(add-to-command-list 'Text-Command-List
		     (x-char M-BACKSPACE)
		     'kill-backward-word-command)
(add-to-command-list 'Lisp-Command-List
		     (x-char BACKSPACE)
		     'delete-backward-hacking-tabs-command)
(nmode-establish-current-mode)

(when (not (funboundp 'nmode-define-softkey))
 (nmode-define-softkey 0 'exit-nmode "Exit")
 (nmode-define-softkey 1 'buffer-browser-command "Buffers")
 (nmode-define-softkey 2 'find-file-command "Find File")
 (nmode-define-softkey 3 'save-file-command "Save File")
 (if (not (funboundp 'browser-browser-command))
   (nmode-define-softkey 4 'browser-browser-command "Browsers")
   (nmode-define-softkey 4 'fill-paragraph-command "Fill Para")
   )
 (nmode-define-softkey 5 'pasemulate "Hulk")
 (nmode-define-softkey 6 'pasfiler "Filer")
 (nmode-define-softkey 8 (string (x-char ^!])) "Lisp-")
 (nmode-define-softkey 9 (string (x-char ^!\) #/X) "M-X")
 )


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]