Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

w3m-util.el (w3m-force-mode-line-update): New alias.

w3m-lnum.el (w3m-with-lnum, w3m-lnum-universal-dispatch): Use it.
  • Loading branch information...
commit 78d791d5b49c845f0bc65ba7cb422b3a37492728 1 parent 22d719b
yamaoka authored
Showing with 13 additions and 2 deletions.
  1. +6 −0 ChangeLog
  2. +2 −2 w3m-lnum.el
  3. +5 −0 w3m-util.el
View
6 ChangeLog
@@ -1,3 +1,9 @@
+2012-06-04 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * w3m-util.el (w3m-force-mode-line-update): New alias.
+
+ * w3m-lnum.el (w3m-with-lnum, w3m-lnum-universal-dispatch): Use it.
+
2012-06-03 Katsumi Yamaoka <yamaoka@jpl.org>
* w3m.el (w3m-create-page): Improve regexp matching `Google Analytics
View
4 w3m-lnum.el
@@ -568,7 +568,7 @@ the last used index number."
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)
+ (w3m-force-mode-line-update)
(let ((last-index (w3m-lnum ,type ,filter)))
,@body))
(setq mode-line-format original-mode-line-format)
@@ -769,7 +769,7 @@ Function has to take one argument that is selection info."
(setq mode-line-format "RET, left click: select | \
<down>,TAB/<up>,BACKTAB: move to next/previous action"
buffer-read-only nil)
- (redraw-modeline)
+ (w3m-force-mode-line-update)
(mapc (lambda (option)
(if (consp option)
(insert
View
5 w3m-util.el
@@ -1517,6 +1517,11 @@ get to be the alias to `visited-file-modtime'."
;; Old ones
(void-function '(interactive-p))))
+(defalias 'w3m-force-mode-line-update
+ (if (fboundp 'force-mode-line-update)
+ 'force-mode-line-update)
+ 'redraw-modeline)
+
;;; Punycode RFC 3492:
(defconst w3m-puny-code-regex "xn--\\([-0-9a-zA-z]+\\)")
Please sign in to comment.
Something went wrong with that request. Please try again.