>From 6c17b8807d1ca53b26c28c4487f90db8ba12e486 Mon Sep 17 00:00:00 2001 From: Morgan Veyret Date: Mon, 10 Mar 2008 10:59:23 +0100 Subject: [PATCH] Fixed typo in dump-group-to-file, dump-screen-to-file and dump-desktop-to-file. --- fdump.lisp | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/fdump.lisp b/fdump.lisp index 68af06a..ff7e1de 100644 --- a/fdump.lisp +++ b/fdump.lisp @@ -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")) -- 1.5.2.2