Fresh Fish 4/FreshFish_May-June1994.bin/bbs/may94/util/edit/jade.lha/Jade/lisp/loadmenus.jlc

Text File | 1994-04-20 | 2KB | 3 lines

(if (not (amiga-p)) (error "Menus only work on an Amiga") (set-menu (quote ("Project" ("Open file... (C-x C-f)" (find-file)) ("Open window (C-x 2)" (open-window)) ("Insert file... (C-x i)" (insert-file)) nil ("Save file (C-x C-s)" (save-file)) ("Save file as... (C-x C-w)" (save-file-as)) ("Save some... (C-x s)" (save-some-buffers)) nil ("Clear buffer" (when (check-changes) (clear-buffer))) ("Kill buffer... (C-x k)" (kill-buffer)) ("Switch buffer... (C-x b)" (switch-to-buffer)) ("Close window (C-x 0)" (close-window)) ("Close other windows (C-x 1)" (close-other-windows)) nil ("Quit (C-x C-c)" (save-and-quit)))) (quote ("Edit" ("Mark block (C-m)" (block-toggle)) ("Mark rectangles (C-M)" (toggle-rect-blocks)) nil ("Kill block (C-w)" (write-clip 0 (cut-block))) ("Copy block (ESC w)" (write-clip 0 (copy-block))) ("Delete block (C-z)" (delete-block)) nil ("Yank (C-y)" (insert (read-clip 0))) ("Rectangular yank (C-Y)" (insert-rect (read-clip))) ("Insert block (C-i)" (insert-block)))) (quote ("Find" ("Search... (C-s)" (search-forward)) ("Repeat search (C-S)" (search-forward t)) ("Repeat search backwards (C-R)" (search-backward t)) nil ("Replace with... (ESC p)" (simple-replace)) ("Repeat replace (ESC P)" (simple-replace t)) nil ("Line number... (C-j)" (goto-line)) ("Matching bracket (ESC n)" (set-auto-mark) (goto-matching-bracket)) ("Next window (C-x o)" (set-current-window (next-window) t)))) (quote ("Marks" ("Set auto-mark (C-#)" (set-auto-mark)) ("Goto auto-mark (C-x C-x)" (swap-cursor-and-mark)) nil ("Set #1 (S-F1)" (set-mark mark-1 (cursor-pos) (current-buffer))) ("Set #2 (S-F2)" (set-mark mark-2 (cursor-pos) (current-buffer))) ("Set #3 (S-F3)" (set-mark mark-3 (cursor-pos) (current-buffer))) nil ("Goto #1 (F1)" (goto-mark mark-1)) ("Goto #2 (F2)" (goto-mark mark-2)) ("Goto #3 (F3)" (goto-mark mark-3))))))