home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Environments / AllegroCL11 / Examples / sample-init-2.lisp < prev    next >
Encoding:
Text File  |  1987-10-20  |  988 b   |  26 lines  |  [TEXT/CCL ]
  1. ;Make clover key be emacs control, clover-shift be the mac menu key.
  2. (setq *emacs-mode* t)
  3.  
  4. ;Define C-X C-O to toggle between the top two fred windows
  5. (comtab-set-key *control-x-comtab* #\o 'ed-other-window)
  6.  
  7. (defobfun (ed-other-window *fred-window*) ()
  8.   (let ((windows (cdr (windows *fred-window*))))
  9.     (if windows
  10.       (ask (car windows) (window-select))
  11.       (ed-beep))))
  12.  
  13. ;Define C-X C-Space to delete whitespace characters starting at cursor position
  14. (comtab-set-key *control-x-comtab*
  15.                 '(:control #\space)
  16.                 'ed-delete-forward-whitespace)
  17.  
  18. (defobfun (ed-delete-forward-whitespace *fred-window*) ()
  19.   (multiple-value-bind (b e) (selection-range)
  20.     (if (/= b e) (clear)    ;If there is a selection, just kill it.
  21.         (let ((buffer (window-buffer)))
  22.           (buffer-delete buffer :start b
  23.                                 :end (or (buffer-not-char-pos buffer "
  24.       " :start b)
  25.                                          (buffer-size buffer)))))))
  26.