/[cmucl]/src/hemlock/bit-screen.lisp
ViewVC logotype

Diff of /src/hemlock/bit-screen.lisp

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

revision 1.9 by chiles, Mon Aug 12 07:17:35 1991 UTC revision 1.10 by chiles, Wed Oct 23 11:10:27 1991 UTC
# Line 1465  Line 1465 
1465          (setf *random-typeout-start-width* (xlib:drawable-width xwindow)))))          (setf *random-typeout-start-width* (xlib:drawable-width xwindow)))))
1466    (add-hook ed::window-buffer-hook 'set-window-name-for-window-buffer)    (add-hook ed::window-buffer-hook 'set-window-name-for-window-buffer)
1467    (add-hook ed::buffer-name-hook 'set-window-name-for-buffer-name)    (add-hook ed::buffer-name-hook 'set-window-name-for-buffer-name)
1468    (add-hook ed::set-window-hook 'set-window-hook-raise-fun))    (add-hook ed::set-window-hook 'set-window-hook-raise-fun)
1469      (add-hook buffer-modified-hook 'raise-echo-area-when-modified))
1470    
1471  (defun make-default-bitmap-device (display)  (defun make-default-bitmap-device (display)
1472    (make-bitmap-device    (make-bitmap-device

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5