[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[patch] lnum modeline
- From: Andrey Kotlarski <m00naticus@xxxxxxxxx>
- Date: Wed, 18 Apr 2012 01:06:14 +0300
- X-ml-name: emacs-w3m
- X-mail-count: 11814
The following message is a courtesy copy of an article
that has been posted to gmane.emacs.w3m as well.
Hello,
here's a little fix to the mode line not always redrawing to show
available keys (along some other minor fixes):
--- ChangeLog.~1.3413.~ 2012-04-18 00:17:18.000000000 +0300
+++ ChangeLog 2012-04-18 01:00:44.470394665 +0300
@@ -1,3 +1,10 @@
+2012-04-18 Andrey Kotlarski <m00naticus@xxxxxxxxx>
+
+ * w3m-lnum.el (w3m-with-lnum, w3m-lnum-universal-dispatch): Explicitly
+ redraw mode line.
+ (w3m-lnum-visit): Fix prompt.
+ Add --insecure option to Curl.
+
2012-04-17 Katsumi Yamaoka <yamaoka@xxxxxxx>
* w3m.el (w3m-create-page): Add a filter for Google Analytics tracking
Index: w3m-lnum.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m-lnum.el,v
retrieving revision 1.41
diff -c -r1.41 w3m-lnum.el
--- w3m-lnum.el 6 Dec 2011 14:57:29 -0000 1.41
+++ w3m-lnum.el 17 Apr 2012 22:05:36 -0000
@@ -568,6 +568,7 @@
chars, C-digit, C-SPACE: add chars, digits or space to string \
filter | arrows: move selection | SPACE,DEL,<,>: scroll | \
ESC, C-g: quit")
+ (redraw-modeline)
(let ((last-index (w3m-lnum ,type ,filter)))
,@body))
(setq mode-line-format original-mode-line-format)
@@ -682,7 +683,7 @@
(goto-char (cadr ,info))
(w3m-history-store-position)
(w3m-goto-url
- ,(if edit `(read-string "Visit url in new session: "
+ ,(if edit `(read-string "Visit url: "
(car ,info))
`(car ,info))))))
@@ -766,8 +767,9 @@
"*Emacs-w3m action selection*")))
(set-buffer selection-buffer)
(setq mode-line-format "RET, left click: select | \
-<down>,TAB/<up>,BACKTAB: move to next/previous action")
- (setq buffer-read-only nil)
+<down>,TAB/<up>,BACKTAB: move to next/previous action"
+ buffer-read-only nil)
+ (redraw-modeline)
(mapc (lambda (option)
(if (consp option)
(insert
@@ -1102,9 +1104,8 @@
(cd (read-directory-name
"Save to: " (getenv "HOME")
nil t))
- (async-shell-command (concat "curl -O '"
- (car info)
- "'")
+ (async-shell-command
+ (concat "curl -k -O '" (car info) "'")
"*Curl*")
(cd olddir)))
"Download with Curl")))))