/[cmucl]/src/hemlock/filecoms.lisp
ViewVC logotype

Diff of /src/hemlock/filecoms.lisp

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

revision 1.2 by ram, Fri Jul 13 15:11:57 1990 UTC revision 1.3 by ram, Mon Dec 10 18:14:38 1990 UTC
# Line 1010  Line 1010 
1010    "Delete the current window, going to the previous window."    "Delete the current window, going to the previous window."
1011    "Delete the window we are in, going to the previous window."    "Delete the window we are in, going to the previous window."
1012    (declare (ignore p))    (declare (ignore p))
1013      (when (= (length *window-list*) 2)
1014        (editor-error "Cannot delete only window."))
1015    (let ((window (current-window)))    (let ((window (current-window)))
1016      (previous-window-command ())      (previous-window-command nil)
     (when (eq (current-window) window)  
       (editor-error "Cannot delete current window."))  
1017      (delete-window window)))      (delete-window window)))
1018    
1019  (defcommand "Line to Top of Window" (p)  (defcommand "Line to Top of Window" (p)
# Line 1027  Line 1027 
1027    "Deletes the next window on display."    "Deletes the next window on display."
1028    "Deletes then next window on display."    "Deletes then next window on display."
1029    (declare (ignore p))    (declare (ignore p))
1030    (if (eq (next-window (current-window))    (if (<= (length *window-list*) 2)
           (current-window))  
1031        (editor-error "Cannot delete only window")        (editor-error "Cannot delete only window")
1032        (delete-window (next-window (current-window)))))        (delete-window (next-window (current-window)))))
1033    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5