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

Small docfixes for w3m.el



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