changeset 92224:5f0de7ccefc4

(doc-view-current-page): Add a `win' argument.

--- a/lisp/ChangeLog	Tue Feb 26 01:43:54 2008 +0000
+++ b/lisp/ChangeLog	Tue Feb 26 02:06:33 2008 +0000
@@ -1,3 +1,7 @@
[phone]  Stefan Monnier  <[e-mail]>
+
+	* doc-view.el (doc-view-current-page): Add a `win' argument.
+
 2008-02-25  Roland Winkler  <[e-mail]>
 
 	* ibuffer.el (ibuffer-do-toggle-read-only): New optional arg as in
@@ -162,8 +166,7 @@
 	(mode-popup-menu): Don't defvar.
 	(verilog-add-statement-menu): Remove.
 	(verilog-mode-hook): Don't add verilog-add-statement-menu.
-	(verilog-mode): Call easy-menu-add and set mode-popup-menu for
-	XEmacs.
+	(verilog-mode): Call easy-menu-add and set mode-popup-menu for XEmacs.
 
 2008-02-24  Michael McNamara  <[e-mail]>
 
@@ -171,31 +174,31 @@
 	conditional.
 	(verilog-font-grouping-keywords-face): Make the begin..end
 	keywords standout more than other verilog keywords.
-        (verilog-type-font-keywords): Move the begin..end out of this list
+	(verilog-type-font-keywords): Move the begin..end out of this list
 	to facilitate making them to (potentially) stand out more.
 	(verilog-backward-token): Fix indent of bare always{_*}?, initial,
 	function & task blocks.
-        (verilog-behavioral-block-beg-re): Fix indent of bare always{_*}?,
+	(verilog-behavioral-block-beg-re): Fix indent of bare always{_*}?,
 	initial, function & task blocks.
 	(verilog-forward-sexp): Handle the new "disable fork" statement of
 	IEEE-1800 Verilog.
-        (verilog-beg-block-re-ordered): Handle the new "disable fork"
+	(verilog-beg-block-re-ordered): Handle the new "disable fork"
 	statement of IEEE-1800 Verilog.
-        (verilog-calc-1): Handle the new "disable fork" statement of
+	(verilog-calc-1): Handle the new "disable fork" statement of
 	IEEE-1800 Verilog.
-        (verilog-disable-fork-re): Add const to help handle the new
+	(verilog-disable-fork-re): Add const to help handle the new
 	"disable fork" statement of IEEE-1800 Verilog.
 	(verilog-declaration-core-re): Add port directions by themselves,
 	with no qualification, as base item of a declaration.
-        (verilog-pretty-declarations): Add new flag to ask it to refrain
+	(verilog-pretty-declarations): Add new flag to ask it to refrain
 	from printing to the message buffer.
-        (verilog-pretty-expr): Add a QUIET flag to ask it to refrain from
+	(verilog-pretty-expr): Add a QUIET flag to ask it to refrain from
 	printing to the message buffer.  Improve handling of the many
 	types of expression line up.
-        (verilog-just-one-space): Remove printing of an empty message.
-        (verilog-get-lineup-indent): Rework to support the better handling
+	(verilog-just-one-space): Remove printing of an empty message.
+	(verilog-get-lineup-indent): Rework to support the better handling
 	of expression lineup for verilog-pretty-expr.
-        (verilog-auto-wire): Pass the quiet flag to verilog-pretty-expr.
+	(verilog-auto-wire): Pass the quiet flag to verilog-pretty-expr.
 
 2008-02-24  Alan Mackenzie  <[e-mail]>
 

--- a/lisp/doc-view.el	Tue Feb 26 01:43:54 2008 +0000
+++ b/lisp/doc-view.el	Tue Feb 26 02:06:33 2008 +0000
@@ -318,7 +318,8 @@
 
 ;;;; Navigation Commands
 
-(defmacro doc-view-current-page () `(image-mode-window-get 'page))
+(defmacro doc-view-current-page (&optional win)
+  `(image-mode-window-get 'page ,win))
 (defmacro doc-view-current-info () `(image-mode-window-get 'info))
 (defmacro doc-view-current-overlay () `(image-mode-window-get 'overlay))
 (defmacro doc-view-current-image () `(image-mode-window-get 'image))