Last edit
1,15c1,10 < From: JeanPhilippeTheberge < Subject: religious sacrifice < Newsgroups: alt.religion.emacs < Date: 31 Aug 2001 17:20:22 +0200 << (defun religious-sacrifice () < (interactive) < (mapc (lambda (x) < (shell-command (concat "rm " x)) < (message "All hail emacs!!!")) < (cdr < (split-string < (shell-command-to-string "whereis vi"))))) << I modified the code above to use mapc instead of mapcar. I hope that this is OK? -- AndreasFuchs --- > *Original posting by JeanPhilippeTheberge, modified by AndreasFuchs:* > (defun religious-sacrifice () > (interactive) > (mapc (lambda (x) > (shell-command (concat "rm " x)) > (message "All hail emacs!!!")) > (cdr > (split-string > (shell-command-to-string "whereis vi"))))) > *For* the *original postings, see Groups:religious+sacrifice+jean+philippe+theberge.*
Original posting by JeanPhilippeTheberge, modified by AndreasFuchs:
(defun religious-sacrifice ()
(interactive)
(mapc (lambda (x)
(shell-command (concat "rm " x))
(message "All hail emacs!!!"))
(cdr
(split-string
(shell-command-to-string "whereis vi")))))For the original postings, see Groups:religious+sacrifice+jean+philippe+theberge.