[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Lisp banner
- From: Katsumi Yamaoka <yamaoka@xxxxxxx>
- Date: Fri, 10 Aug 2001 11:35:37 +0900
- X-ml-name: emacs-w3m
- X-mail-count: 01410
- References: <200108092207.HAA07472@iso220.aist-nara.ac.jp>
>>>>> In [Elips : No.0004354]
>>>>> "Masatake YAMATO" <masata-y@is.aist-nara.ac.jp> wrote:
大和さん> (lambdaの騎士諸君)
[...乞御容赦省略乃義...]
大和さん> (http://www.aist-nara.ac.jp/~masata-y/gnu/lisp.gif)
この場合は親ページがあるから何とかなるのですが、無い場合にファイ
ルをダウンロードするためのコマンドが Emacs-W3M にありますか?
無いようでしたら関数 `w3m-download' をコマンドに仕立てておくと便
利だと思うのですが、いかがでしょう?
2001-08-10 Katsumi Yamaoka <yamaoka@jpl.org>
* w3m.el (w3m-download): Made it to work as a command.
--- w3m.el~ Fri Aug 10 01:18:25 2001
+++ w3m.el Fri Aug 10 02:34:33 2001
@@ -2425,6 +2425,21 @@
v))
(defun w3m-download (url &optional filename no-cache)
+ (interactive
+ (let* ((url (w3m-input-url
+ nil
+ (when (stringp w3m-current-url)
+ (if (string-match "about://\\(header\\|source\\)/"
+ w3m-current-url)
+ (substring w3m-current-url (match-end 0))
+ w3m-current-url))))
+ (basename (file-name-nondirectory url)))
+ (if (string-match "^[\t ]*$" basename)
+ (error "You should specify the existing file name")
+ (list url
+ (w3m-read-file-name (format "Download %s to: " basename)
+ w3m-default-save-directory basename)
+ current-prefix-arg))))
(unless filename
(setq filename (w3m-read-file-name nil nil url)))
(if (w3m-retrieve url t no-cache)