Skip to content

Commit

Permalink
Fixed typo in dump-group-to-file, dump-screen-to-file and dump-deskto…
Browse files Browse the repository at this point in the history
…p-to-file.
  • Loading branch information
Morgan Veyret authored and Shawn committed Apr 18, 2008
1 parent 187ddeb commit 9c01f86
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions fdump.lisp
Expand Up @@ -79,21 +79,21 @@
(*print-pretty* t))
(prin1 foo fp)))))

(defcommand dump-group-to-file (file) (:rest "Dump To File: ")
(defcommand dump-group-to-file (file) ((:rest "Dump To File: "))
"Dumps the frames of the current group of the current screen to the named file."
(dump-to-file (dump-group (current-group)) file)
(message "Group dumped"))

(defcommand-alias dump-group dump-group-to-file)

(defcommand dump-screen-to-file (file) (:rest "Dump To File: ")
(defcommand dump-screen-to-file (file) ((:rest "Dump To File: "))
"Dumps the frames of all groups of the current screen to the named file"
(dump-to-file (dump-screen (current-screen)) file)
(message "Screen dumped"))

(defcommand-alias dump-screen dump-screen-to-file)

(defcommand dump-desktop-to-file (file) (:rest "Dump To File: ")
(defcommand dump-desktop-to-file (file) ((:rest "Dump To File: "))
"Dumps the frames of all groups of all screens to the named file"
(dump-to-file (dump-desktop) file)
(message "Desktop dumped"))
Expand Down

0 comments on commit 9c01f86

Please sign in to comment.