/[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.6 by thenriksen, Sun Apr 23 12:11:26 2006 UTC revision 1.7 by thenriksen, Sun Apr 23 12:36:19 2006 UTC
# Line 212  Line 212 
212                 (switch-to-buffer existing-buffer)                 (switch-to-buffer existing-buffer)
213                 (let ((buffer (make-buffer))                 (let ((buffer (make-buffer))
214                       (pane (current-window)))                       (pane (current-window)))
215                     (setf (syntax buffer) nil)
216                   (setf (offset (point (buffer pane))) (offset (point pane)))                   (setf (offset (point (buffer pane))) (offset (point pane)))
217                   (setf (buffer (current-window)) buffer)                   (setf (buffer (current-window)) buffer)
218                   ;; Don't want to create the file if it doesn't exist.                   ;; Don't want to create the file if it doesn't exist.

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5