/[climacs]/climacs/file-commands.lisp
ViewVC logotype

Diff of /climacs/file-commands.lisp

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

revision 1.3 by tmoore, Fri Mar 3 19:38:57 2006 UTC revision 1.4 by crhodes, Sat Mar 25 20:58:41 2006 UTC
# Line 155  Line 155 
155                   (setf (buffer (current-window)) buffer)                   (setf (buffer (current-window)) buffer)
156                   (setf (syntax buffer)                   (setf (syntax buffer)
157                         (make-instance (syntax-class-name-for-filepath filepath)                         (make-instance (syntax-class-name-for-filepath filepath)
158                            :buffer (buffer (point pane))))                            :buffer buffer))
159                   ;; Don't want to create the file if it doesn't exist.                   ;; Don't want to create the file if it doesn't exist.
160                   (when (probe-file filepath)                   (when (probe-file filepath)
161                     (with-open-file (stream filepath :direction :input)                     (with-open-file (stream filepath :direction :input)

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

  ViewVC Help
Powered by ViewVC 1.1.5