[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

[patch] lnum modeline



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")))))