[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Small docfixes for w3m.el
- From: Romain FRANCOISE <romain@xxxxxxxxxxxxx>
- Date: Wed, 06 Nov 2002 18:52:01 +0100
- X-ml-name: emacs-w3m
- X-mail-count: 04241
Hi,
the attached patch against the current CVS fixes a few omissions/errors
in various docstrings in w3m.el, mostly small corrections.
Romain.
--
Romain FRANCOISE <romain@orebokech.com> | Every sky is blue, but not
it's a miracle -- http://orebokech.com/ | for me and you.
Index: w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.761
diff -u -r1.761 w3m.el
--- w3m.el 5 Nov 2002 14:56:59 -0000 1.761
+++ w3m.el 6 Nov 2002 17:42:13 -0000
@@ -4180,6 +4180,8 @@
(string-match "[a-z]+://?[^/]+/." w3m-current-url))))
(defun w3m-view-parent-page ()
+ "View the parent of the current page, e.g. \"http://foo/\" if you're currently
+viewing \"http://foo/bar/\"."
(interactive)
(if (null w3m-current-url)
(error "w3m-current-url is not set"))
@@ -4523,14 +4525,14 @@
(w3m-display-message "No URL at point"))))
(defun w3m-print-current-url ()
- "Print the URL of current page and push it into kill-ring."
+ "Print the URL of the current page and push it into the kill-ring."
(interactive)
(when w3m-current-url
(kill-new w3m-current-url)
(w3m-display-message "%s" w3m-current-url)))
(defun w3m-print-this-url (&optional arg)
- "Print the URL of the link under point."
+ "Print the URL of the link under point and push it into the kill-ring."
(interactive (list t))
(let ((url (or (w3m-anchor) (w3m-image))))
(when (or url arg)
@@ -5436,7 +5438,7 @@
(scroll-down arg)))
(defun w3m-scroll-left (arg)
- "Scroll to left.
+ "Scroll to the left.
Scroll size is `w3m-horizontal-scroll-columns' columns
or prefix ARG columns."
(interactive "P")
@@ -5445,7 +5447,7 @@
w3m-horizontal-scroll-columns)))
(defun w3m-scroll-right (arg)
- "Scroll to right.
+ "Scroll to the right.
Scroll size is `w3m-horizontal-scroll-columns' columns
or prefix ARG columns."
(interactive "P")
@@ -5454,7 +5456,7 @@
w3m-horizontal-scroll-columns)))
(defun w3m-shift-left (arg)
- "Shift to left.
+ "Shift to the left.
Shift size is `w3m-horizontal-shift-columns' columns
or prefix ARG columns."
(interactive "P")
@@ -5463,7 +5465,7 @@
w3m-horizontal-shift-columns)))
(defun w3m-shift-right (arg)
- "Shift to right.
+ "Shift to the right.
Shift size is `w3m-horizontal-shift-columns' columns
or prefix ARG columns."
(interactive "P")
@@ -6798,7 +6800,7 @@
buffer))
(defun w3m-select-buffer-show-this-line-and-down ()
- "Show the current buffer on this menu line or scroll down its."
+ "Show the current buffer on this menu line or scroll it down."
(interactive)
(let ((obuffer (and (window-live-p w3m-select-buffer-window)
(window-buffer w3m-select-buffer-window)))