How can I iconify an emacs window from a function??

Article View: gnu.emacs.help

Article #189056

#189056

From: southern
Date: Fri, 10 May 1991 18:01

27 lines
1766 bytes

 I have an function which I use to send the program that I'm
currently editing off to a mainframe batch queue from a Sun 4.0
xterm.

 I would like to have the function terminate with the emacs window
being iconified.  Is there an easy way to do this?

-- the function: -----------------------------------------------------

(defun shjob-file ()
  " Save buffer, send file off to the YMP, log it in ~/shjob.log , don't exit"
  (interactive)
  (save-buffer)
  (message "%s"  (concat "nrnet shjob " buffer-file-name "  " /
                    (current-time-string) "  sending..."))
  (shell-command (concat "rsh neit nrnet shjob " buffer-file-name ))
  (shell-command (concat "touch ~/shjob.log" ))
  (shell-command (concat "echo \" nrnet shjob " buffer-file-name " " /
                    (current-time-string) "\" >> ~/shjob.log" ))
  (delete-other-windows)
  (message "%s"  (concat "nrnet shjob " buffer-file-name "  " /
                    (current-time-string) "  sent!!!!!!" ))    )

--
                                     Lawrence Buja
                                     southern@ncar.ucar.edu

Technical Details

Message-ID: <11370@ncar.ucar.edu>

Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!wuarchive!sdd.hp.com!elroy.jpl.nasa.gov!ncar!neit.cgd.ucar.edu!southern

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103b8b,71e1ba25cfc4aaff,start
X-Google-Attributes: gid103b8b,public
X-Google-ArrivalTime: 1991-05-11 05:47:08 PST
Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!wuarchive!sdd.hp.com!elroy.jpl.nasa.gov!ncar!neit.cgd.ucar.edu!southern
From: southern@neit.cgd.ucar.edu
Newsgroups: gnu.emacs.help
Subject: How can I iconify an emacs window from a function??
Message-ID: <11370@ncar.ucar.edu>
Date: 10 May 91 18:01:31 GMT
Sender: news@ncar.ucar.edu
Reply-To: southern@neit.cgd.ucar.edu ()
Distribution: gnu
Organization: Climate and Global Dynamics Division/NCAR, Boulder, CO
Lines: 27