commands/elle/defprf.e

   1 ;;;
   2 ;;; ELLE Default Command Profile - "defprf.e"
   3 ;;;
   4 ;;;     This file is input to the ellec program.  It defines the default
   5 ;;; command key bindings that ELLE uses, in the absence of an individual
   6 ;;; user profile.
   7 ;;;     These defaults attempt to emulate the default EMACS command key
   8 ;;; bindings.  Differences, where known, are commented.
   9 ;;;
  10 ;;;     "ELLE" means the function is unique to ELLE.
  11 ;;;     E/G: (cmd altnam) "thisname";
  12 ;;;             "E:" refers to TOPS-20 EMACS, "G:" refers to Gnu Emacs.
  13 ;;;             (cmd) This function exists but is bound to "cmd" instead.
  14 ;;;                 (*) function exists but is not bound to any specific key.
  15 ;;;                 ()  function does not exist.
  16 ;;;                 (=) function exists, with same binding (normally omitted)
  17 ;;;             altnam  Name by which this function is known.
  18 ;;;             "thisname" - name of function bound to this command.
  19 ;;;                 -    means the command is unbound (undefined).
  20
  21 (keyallunbind)          ; Flush any predefined bindings
  22
  23 (keybind ^@ "Set/Pop Mark")
  24 (keybind ^A "Beginning of Line")
  25 (keybind ^B "Backward Character")
  26 ; ^C not bound.                         ; E: ()- G: mode-specific-command-prefix
  27 (keybind ^D "Delete Character")
  28 (keybind ^E "End of Line")
  29 (keybind ^F "Forward Character")
  30 (keybind ^H "Backward Character")       ; G: (^B) help-command
  31 (keybind ^I "Indent According to Mode")
  32 (keybind ^J "Indent New Line")
  33 (keybind ^K "Kill Line")
  34 (keybind ^L "New Window")
  35 (keybind ^M "CRLF")
  36 (keybind ^N "Down Real Line")
  37 (keybind ^O "Open Line")
  38 (keybind ^P "Up Real Line")
  39 (keybind ^Q "Quoted Insert")
  40 (keybind ^R "Reverse Search")
  41 (keybind ^S "Incremental Search")
  42 (keybind ^T "Transpose Characters")
  43 (keybind ^U "Universal Arg")
  44 (keybind ^V "Next Screen")
  45 (keybind ^W "Kill Region")
  46 (keybind ^X "Prefix Extend")
  47 (keybind ^Y "Un-kill")
  48 ; ^Z not bound                  ; E: Prefix Control-Meta;  G: suspend-emacs
  49 (keybind ^[ "Prefix Meta")
  50 (keybind "^\" "Debug Mode")     ; ELLE. E: () Prefix Meta;  G: () -
  51 ; ^] not bound.                 ; E+G: Abort Recursive Edit
  52 (keybind ^^ "Hit Breakpoint")   ; ELLE. E: () Prefix Control;  G: () -
  53 (keybind ^_ "Describe")         ; E: (M-?) Help;  G: (^H-k) undo
  54 (keybind " " "Insert Self")
  55 (keybind ! "Insert Self")
  56 (keybind """" "Insert Self")
  57 (keybind # "Insert Self")
  58 (keybind $ "Insert Self")
  59 (keybind % "Insert Self")
  60 (keybind & "Insert Self")
  61 (keybind ' "Insert Self")
  62 (keybind "(" "Insert Self")
  63 (keybind ")" "Insert Self")
  64 (keybind * "Insert Self")
  65 (keybind + "Insert Self")
  66 (keybind , "Insert Self")
  67 (keybind - "Insert Self")
  68 (keybind . "Insert Self")
  69 (keybind / "Insert Self")
  70 (keybind 0 "Insert Self")
  71 (keybind 1 "Insert Self")
  72 (keybind 2 "Insert Self")
  73 (keybind 3 "Insert Self")
  74 (keybind 4 "Insert Self")
  75 (keybind 5 "Insert Self")
  76 (keybind 6 "Insert Self")
  77 (keybind 7 "Insert Self")
  78 (keybind 8 "Insert Self")
  79 (keybind 9 "Insert Self")
  80 (keybind : "Insert Self")
  81 (keybind ";" "Insert Self")
  82 (keybind < "Insert Self")
  83 (keybind = "Insert Self")
  84 (keybind > "Insert Self")
  85 (keybind ? "Insert Self")
  86 (keybind @ "Insert Self")
  87 (keybind A "Insert Self")
  88 (keybind B "Insert Self")
  89 (keybind C "Insert Self")
  90 (keybind D "Insert Self")
  91 (keybind E "Insert Self")
  92 (keybind F "Insert Self")
  93 (keybind G "Insert Self")
  94 (keybind H "Insert Self")
  95 (keybind I "Insert Self")
  96 (keybind J "Insert Self")
  97 (keybind K "Insert Self")
  98 (keybind L "Insert Self")
  99 (keybind M "Insert Self")
 100 (keybind N "Insert Self")
 101 (keybind O "Insert Self")
 102 (keybind P "Insert Self")
 103 (keybind Q "Insert Self")
 104 (keybind R "Insert Self")
 105 (keybind S "Insert Self")
 106 (keybind T "Insert Self")
 107 (keybind U "Insert Self")
 108 (keybind V "Insert Self")
 109 (keybind W "Insert Self")
 110 (keybind X "Insert Self")
 111 (keybind Y "Insert Self")
 112 (keybind Z "Insert Self")
 113 (keybind [ "Insert Self")
 114 (keybind "\" "Insert Self")
 115 (keybind ] "Insert Self")
 116 (keybind ^ "Insert Self")
 117 (keybind _ "Insert Self")
 118 (keybind ` "Insert Self")
 119 (keybind a "Insert Self")
 120 (keybind b "Insert Self")
 121 (keybind c "Insert Self")
 122 (keybind d "Insert Self")
 123 (keybind e "Insert Self")
 124 (keybind f "Insert Self")
 125 (keybind g "Insert Self")
 126 (keybind h "Insert Self")
 127 (keybind i "Insert Self")
 128 (keybind j "Insert Self")
 129 (keybind k "Insert Self")
 130 (keybind l "Insert Self")
 131 (keybind m "Insert Self")
 132 (keybind n "Insert Self")
 133 (keybind o "Insert Self")
 134 (keybind p "Insert Self")
 135 (keybind q "Insert Self")
 136 (keybind r "Insert Self")
 137 (keybind s "Insert Self")
 138 (keybind t "Insert Self")
 139 (keybind u "Insert Self")
 140 (keybind v "Insert Self")
 141 (keybind w "Insert Self")
 142 (keybind x "Insert Self")
 143 (keybind y "Insert Self")
 144 (keybind z "Insert Self")
 145 (keybind { "Insert Self")
 146 (keybind | "Insert Self")
 147 (keybind } "Insert Self")
 148 (keybind ~ "Insert Self")
 149 (keybind DEL "Backward Delete Character")
 150
 151 ; Meta chars
 152
 153 (keybind M-^B "Move to Window Bottom")  ; ELLE (ima). E+G:()-
 154 (keybind M-^L "Goto Line")              ; E:();  G:(* goto-line) -
 155 (keybind M-^N "Scroll Window Down")     ; ELLE (ima). E+G:()- forward-list
 156 (keybind M-^P "Scroll Window Up")       ; ELLE (ima). E+G:()- backward-list
 157 (keybind M-^R "Reverse String Search")  ; E:(*); G:(* search-backward) -
 158 (keybind M-^S "String Search")          ; E:(*); G:(* search-forward) isearch-forward-regexp
 159 (keybind M-^T "Move to Window Top")     ; ELLE (ima). E+G:()-
 160 (keybind M-^W "Append Next Kill")
 161 (keybind M-^X "Select Existing Buffer") ; ELLE (ima). E+G:()-
 162 (keybind M-^^ "Shrink Window")          ; ELLE (ima). E+G:()-
 163 (keybind M-% "Query Replace")
 164 (keybind M-- "Negative Argument")
 165 (keybind M-0 "Argument Digit")
 166 (keybind M-1 "Argument Digit")
 167 (keybind M-2 "Argument Digit")
 168 (keybind M-3 "Argument Digit")
 169 (keybind M-4 "Argument Digit")
 170 (keybind M-5 "Argument Digit")
 171 (keybind M-6 "Argument Digit")
 172 (keybind M-7 "Argument Digit")
 173 (keybind M-8 "Argument Digit")
 174 (keybind M-9 "Argument Digit")
 175 (keybind "M-;" "Indent for Comment")
 176 (keybind M-< "Goto Beginning")
 177 (keybind M-> "Goto End")
 178 (keybind M-[ "Backward Paragraph")
 179 (keybind "M-\" "Delete Horizontal Space")
 180 (keybind M-] "Forward Paragraph")
 181 (keybind M-B "Backward Word")
 182 (keybind M-C "Uppercase Initial")
 183 (keybind M-D "Kill Word")
 184 (keybind M-F "Forward Word")
 185 (keybind M-G "Fill Region")
 186 (keybind M-H "Mark Paragraph")
 187 (keybind M-I "Indent Relative")         ; E+G: (*) Tab to Tab Stop
 188 (keybind M-L "Lowercase Word")
 189 (keybind M-M "Back to Indentation")
 190 (keybind M-N  "Next Line")              ; E:(*); G:(* forward-line) -
 191 (keybind M-O "VT100 button hack")       ; ELLE. E+G: () -
 192 (keybind M-P  "Previous Line")          ; E:(*); G:() -
 193 (keybind M-Q "Fill Paragraph")
 194 (keybind M-T "Transpose Words")
 195 (keybind M-U "Uppercase Word")
 196 (keybind M-V "Previous Screen")
 197 (keybind M-W "Copy Region")
 198 (keybind M-Y "Un-kill Pop")
 199 (keybind M-~ "Buffer Not Modified")
 200 (keybind M-DEL "Backward Kill Word")
 201
 202 ; Extended commands
 203
 204 (keybind X-^B "List Buffers")
 205 (keybind X-^C "Write File Exit")        ; ELLE (ima). E:()-; G: (= save-buffers-kill-emacs)
 206 (keybind X-^E "Write Region")           ; E:(*)-;    G:(*) eval-last-sexp
 207 (keybind X-^F "Find File")
 208 (keybind X-^K "Write Last Kill")        ; ELLE (mnx). E+G:()-
 209 (keybind X-^L "Lowercase Region")
 210 (keybind X-^M "EOL CRLF Mode")          ; ELLE.  E+G: ()-
 211 (keybind X-^O "Delete Blank Lines")
 212 (keybind X-^P "Set Profile")            ; ELLE.  E+G: () Mark Page
 213 (keybind X-^R "Read File")
 214 (keybind X-^S "Save File")
 215 (keybind X-^U "Uppercase Region")
 216 (keybind X-^V "Visit File")
 217 (keybind X-^W "Write File")
 218 (keybind X-^X "Exchange Point and Mark")
 219 (keybind X-^Z "Return to Superior")     ; G:() suspend-emacs
 220 (keybind X-! "Push to Inferior")        ; ELLE.  E:(*)-; G:()-
 221 (keybind X-$  "Replace in Line")        ; ELLE (mnx). E+G:()-
 222 (keybind X-% "Replace String")          ; E+G: (*) -
 223 (keybind "X-(" "Start Kbd Macro")
 224 (keybind "X-)" "End Kbd Macro")
 225 (keybind X-* "View Kbd Macro")          ; E: (*)-; G: ()-
 226 (keybind X-. "Set Fill Prefix")
 227 (keybind X-0 "Delete Window")           ; E: ()-
 228 (keybind X-1 "One Window")
 229 (keybind X-2 "Two Windows")
 230 (keybind X-8 "Standout Window")         ; ELLE.  E+G:()-
 231 (keybind X-9 "Two Mode Windows")        ; ELLE.  E+G:()-
 232 (keybind X-= "What Page")               ; E+G: (*) What Cursor Position
 233 (keybind X-^ "Grow Window")
 234 (keybind X-B "Select Buffer")
 235 (keybind X-E "Execute Kbd Macro")
 236 (keybind X-F "Set Fill Column")
 237 (keybind X-I "Insert File")             ; E: (*) Info
 238 (keybind X-K "Kill Buffer")
 239 (keybind X-O "Other Window")
 240 (keybind X-S "Save All Files")          ; E:(*)-; G:(= save-some-buffers)
 241 (keybind X-T "Auto Fill Mode")          ; E:(*) Transpose Regions;  G:(*)-
 242 (keybind X-DEL "Backward Kill Line")    ; ELLE(ico)  E+G:() Backward Kill Sentence
 243 \f
 244 ; IMAGEN-specific functions, not bound.
 245 ;(keybind ""  "Text Mode")              ; IMAGEN E:(*); G:(*)
 246 ;(keybind ""  "Execute Unix Command")   ; IMAGEN E:();  G:(M-! shell-command)
 247 ;(keybind ""  "Execute Make")           ; IMAGEN E:(* Compile); G:(* compile)
 248 ;(keybind ""  "Find Next Error")        ; IMAGEN E:();  G:(X-` next-error)
 249
 250 ; SUN Mouse functions, for menuitem selection.
 251 ;(menuitem "Stuff Selection")   ; SUN
 252 ;(menuitem "Select Region")     ; SUN
 253
 254 ; Forget completely about these.
 255 ;(keybind ""  "ICO Extend Command")     ; ICONOGRAPHICS
 256 ;(keybind ""  "ICO Typeset Funs")       ; ICONOGRAPHICS
 257 ;(keybind ""  "ICO Spec Input Funs")    ; ICONOGRAPHICS
 258