Ignore:
Timestamp:
Sep 22, 2009, 12:51:14 AM (10 years ago)
Author:
gz
Message:

Make sure that all hemlock functions defined outside of hemlock are in the hemlock-ext package, to make it easier to keep track of them

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock/src/filecoms.lisp

    r12234 r12859  
    354354   version, whichever is more recent."
    355355  (declare (ignore p))
    356   (let* ((doc (hi::buffer-document (current-buffer))))
    357     (when doc
    358       (hi::revert-document doc)))
     356  (hemlock-ext:revert-hemlock-buffer (current-buffer))
    359357  (clear-echo-area))
    360358
     
    370368  (declare (ignore p))
    371369  (hi::allowing-buffer-display ((current-buffer))
    372     (hi::open-document)))
     370    (hemlock-ext:open-hemlock-buffer :pathname :prompt)))
    373371 
    374372
     
    572570 
    573571(defcommand "Write File" (p &optional (buffer (current-buffer)))
    574   "Writes the contents of Buffer, which defaults to the current buffer to
    575   the file named by Pathname.  The prefix argument is ignored."
    576   "Prompts for a file to write the contents of the current Buffer to.
     572  "Prompts for a filename, changes the buffer pathname to it and saves it.
    577573  The prefix argument is ignored."
    578574  (declare (ignore p))
    579   (let* ((document (hi::buffer-document buffer)))
    580     (when document
    581       (hi::save-hemlock-document-as document))))
     575  (hemlock-ext:save-hemlock-buffer buffer :pathname :prompt))
    582576
    583577(defcommand "Save To File" (p &optional (buffer (current-buffer)))
    584   "Writes the contents of Buffer, which defaults to the current buffer to
    585   the file named by Pathname.  The prefix argument is ignored."
    586   "Prompts for a file to write the contents of the current Buffer to.
     578  "Prompts for a filename and writes a copy of the buffer to it.  Buffer's
     579   pathname (and modified state) is unchanged.
    587580  The prefix argument is ignored."
    588581  (declare (ignore p))
    589   (let* ((document (hi::buffer-document buffer)))
    590     (when document
    591       (hi::save-hemlock-document-to document))))
     582  (hemlock-ext:save-hemlock-buffer buffer :pathname :prompt :copy t))
    592583
    593584(defcommand "Save File" (p &optional (buffer (current-buffer)))
     
    597588  (declare (ignore p))
    598589  (when (buffer-modified buffer)
    599     (let* ((document (hi::buffer-document buffer)))
    600       (when document
    601         (hi::save-hemlock-document document)))))
     590    (hemlock-ext:save-hemlock-buffer buffer)))
    602591
    603592(defhvar "Save All Files Confirm"
Note: See TracChangeset for help on using the changeset viewer.