edward@vangogh.sybase.com (Ed Hirgelt) (12/22/88)
This is a quick fix to a problem in ps.el recently posted. The problem was that it rebound the keys without establishing a new keymap. This resulted in all new buffers that were created with the default major mode inherited the ps-mode bindings. The following diffs take care of the problem. 3a4,5 > ;; > ;; Modification History: 173a176 > (setq ps-mode-keymap (make-sparse-keymap)) 177,205c180,208 < (local-set-key "\C-c\C-c" 'ps-mode-issue-signals) < (local-set-key "x" 'ps-mode-issue-signals) < (local-set-key "X" 'ps-mode-issue-signals) < (local-set-key "q" 'ps-mode-quit) < (local-set-key " " 'next-line) < (local-set-key "H" 'ps-mode-mark-hangup) < (local-set-key "h" 'ps-mode-mark-hangup) < (local-set-key "I" 'ps-mode-mark-int) < (local-set-key "i" 'ps-mode-mark-int) < (local-set-key "Q" 'ps-mode-mark-quit) < (local-set-key "K" 'ps-mode-mark-kill) < (local-set-key "k" 'ps-mode-mark-kill) < (local-set-key "B" 'ps-mode-mark-bus) < (local-set-key "b" 'ps-mode-mark-bus) < (local-set-key "V" 'ps-mode-mark-segv) < (local-set-key "v" 'ps-mode-mark-segv) < (local-set-key "A" 'ps-mode-mark-alarm) < (local-set-key "a" 'ps-mode-mark-alarm) < (local-set-key "T" 'ps-mode-mark-term) < (local-set-key "t" 'ps-mode-mark-term) < (local-set-key "S" 'ps-mode-mark-stop) < (local-set-key "s" 'ps-mode-mark-stop) < (local-set-key "C" 'ps-mode-mark-cont) < (local-set-key "c" 'ps-mode-mark-cont) < (local-set-key "N" 'ps-mode-mark-nice) < (local-set-key "n" 'ps-mode-mark-nice) < (local-set-key "u" 'ps-mode-mark-unmark) < (local-set-key "U" 'ps-mode-mark-unmark) < (local-set-key "?" 'ps-mode-build-process-list) --- > (define-key ps-mode-keymap "\C-c\C-c" 'ps-mode-issue-signals) > (define-key ps-mode-keymap "x" 'ps-mode-issue-signals) > (define-key ps-mode-keymap "X" 'ps-mode-issue-signals) > (define-key ps-mode-keymap "q" 'ps-mode-quit) > (define-key ps-mode-keymap " " 'next-line) > (define-key ps-mode-keymap "H" 'ps-mode-mark-hangup) > (define-key ps-mode-keymap "h" 'ps-mode-mark-hangup) > (define-key ps-mode-keymap "I" 'ps-mode-mark-int) > (define-key ps-mode-keymap "i" 'ps-mode-mark-int) > (define-key ps-mode-keymap "Q" 'ps-mode-mark-quit) > (define-key ps-mode-keymap "K" 'ps-mode-mark-kill) > (define-key ps-mode-keymap "k" 'ps-mode-mark-kill) > (define-key ps-mode-keymap "B" 'ps-mode-mark-bus) > (define-key ps-mode-keymap "b" 'ps-mode-mark-bus) > (define-key ps-mode-keymap "V" 'ps-mode-mark-segv) > (define-key ps-mode-keymap "v" 'ps-mode-mark-segv) > (define-key ps-mode-keymap "A" 'ps-mode-mark-alarm) > (define-key ps-mode-keymap "a" 'ps-mode-mark-alarm) > (define-key ps-mode-keymap "T" 'ps-mode-mark-term) > (define-key ps-mode-keymap "t" 'ps-mode-mark-term) > (define-key ps-mode-keymap "S" 'ps-mode-mark-stop) > (define-key ps-mode-keymap "s" 'ps-mode-mark-stop) > (define-key ps-mode-keymap "C" 'ps-mode-mark-cont) > (define-key ps-mode-keymap "c" 'ps-mode-mark-cont) > (define-key ps-mode-keymap "N" 'ps-mode-mark-nice) > (define-key ps-mode-keymap "n" 'ps-mode-mark-nice) > (define-key ps-mode-keymap "u" 'ps-mode-mark-unmark) > (define-key ps-mode-keymap "U" 'ps-mode-mark-unmark) > (define-key ps-mode-keymap "?" 'ps-mode-build-process-list) 206a210 > (use-local-map ps-mode-keymap) Hope these help... -- --------------------------------------------------- Ed Hirgelt sun!sybase!edward Sybase, Inc. 6475 Christie Ave Emeryville, Ca. 94608