Artifact 54466585b29a67f936d25119d86f33413c90c72316bb430d8b117bdbb19cd2bc:
- File
psl-1983/3-1/psl/nmode.init
— part of check-in
[eb17ceb7f6]
at
2020-04-21 19:40:01
on branch master
— Add Reduce 3.0 to the historical section of the archive, and some more
files relating to version sof PSL from the early 1980s. Thanks are due to
Paul McJones and Nelson Beebe for these, as well as to all the original
authors.git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1609) [annotate] [blame] [check-ins using] [more...]
- File
psl-1983/x-psl/nmode.init
— part of check-in
[eb17ceb7f6]
at
2020-04-21 19:40:01
on branch master
— Add Reduce 3.0 to the historical section of the archive, and some more
files relating to version sof PSL from the early 1980s. Thanks are due to
Paul McJones and Nelson Beebe for these, as well as to all the original
authors.git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1609) [annotate] [blame] [check-ins using]
% 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") )