/[climacs]/climacs/gui.lisp
ViewVC logotype

Diff of /climacs/gui.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.176 by dmurray, Sun Aug 14 18:09:42 2005 UTC revision 1.177 by dmurray, Mon Aug 15 23:31:22 2005 UTC
# Line 1640  If *with-scrollbars nil, omit the scroll Line 1640  If *with-scrollbars nil, omit the scroll
1640  (define-named-command com-accept-lisp-string ()  (define-named-command com-accept-lisp-string ()
1641    (display-message (format nil "~s" (accept 'lisp-string))))    (display-message (format nil "~s" (accept 'lisp-string))))
1642    
1643    (define-named-command com-toggle-visible-mark ()
1644      (setf (mark-visible-p (current-window)) (not (mark-visible-p (current-window)))))
1645    
1646  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1647  ;;;  ;;;
1648  ;;; Dead-escape command tables  ;;; Dead-escape command tables

Legend:
Removed from v.1.176  
changed lines
  Added in v.1.177

  ViewVC Help
Powered by ViewVC 1.1.5