Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

w3m-util.el (w3m-make-local-hook): New function.

mime-w3m.el (mime-display-message)
w3m-mail.el (w3m-mail-compose-with-vm)
w3m.el (w3m-set-buffer-unseen, w3m-buffer-setup): Use it.
  • Loading branch information...
commit 8b0610d268bb9d92508e17cf99d697adabe12f89 1 parent 50f3a3a
yamaoka authored
View
8 ChangeLog
@@ -1,3 +1,11 @@
+2010-10-07 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * w3m-util.el (w3m-make-local-hook): New function.
+
+ * mime-w3m.el (mime-display-message)
+ * w3m-mail.el (w3m-mail-compose-with-vm)
+ * w3m.el (w3m-set-buffer-unseen, w3m-buffer-setup): Use it.
+
2010-10-06 Katsumi Yamaoka <yamaoka@jpl.org>
* w3m-ems.el (w3m-add-local-hook, w3m-remove-local-hook): Abolish.
View
2  mime-w3m.el
@@ -185,6 +185,8 @@ by way of `post-command-hook'."
"Advised by emacs-w3m.
Add some emacs-w3m utility functions to pre/post-command-hook."
(when (featurep 'w3m)
+ (w3m-make-local-hook 'pre-command-hook)
+ (w3m-make-local-hook 'post-command-hook)
(add-hook 'pre-command-hook 'w3m-store-current-position nil t)
(add-hook 'post-command-hook 'mime-w3m-check-current-position nil t))))
View
1  w3m-mail.el
@@ -243,6 +243,7 @@ the one such as \"text/html\", and the rest are the same as those of
(require 'vm-startup)
(compose-mail to subject other-headers)
(add-to-list 'mail-send-actions `(kill-buffer ,buffer))
+ (w3m-make-local-hook 'kill-buffer-hook)
(add-hook 'kill-buffer-hook `(lambda nil (kill-buffer ,buffer)) nil t)
(w3m-mail-goto-body-and-clear-body)
(w3m-mail-position-point
View
5 w3m-util.el
@@ -77,6 +77,11 @@
(autoload 'w3m-fb-frame-parameter "w3m-fb")
(autoload 'w3m-history-restore-position "w3m-hist" nil t))
+;; XEmacs 21.4 wants this.
+(defalias 'w3m-make-local-hook (if (featurep 'xemacs)
+ 'make-local-hook
+ 'ignore))
+
;;; Control structures:
(defmacro w3m-static-if (cond then &rest else)
View
3  w3m.el
@@ -8265,6 +8265,7 @@ or a list which consists of the following elements:
(defun w3m-set-buffer-unseen (&optional url)
(setq w3m-buffer-unseen t)
+ (w3m-make-local-hook 'pre-command-hook)
(add-hook 'pre-command-hook 'w3m-set-buffer-seen nil t))
(defun w3m-set-buffer-seen ()
@@ -8958,6 +8959,8 @@ generate a new buffer."
(w3m-mode))))
;; It may have been set to nil for viewing a page source or a header.
(setq truncate-lines t)
+ (w3m-make-local-hook 'pre-command-hook)
+ (w3m-make-local-hook 'post-command-hook)
(add-hook 'pre-command-hook 'w3m-store-current-position nil t)
(add-hook 'post-command-hook 'w3m-check-current-position nil t)
(w3m-initialize-graphic-icons)
Please sign in to comment.
Something went wrong with that request. Please try again.