tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix typos and whitespace in org-w3m.el

This commit is contained in:
Bernt Hansen 2008-12-16 11:53:58 -05:00
parent 298b9cb489
commit 3f57ccf0f0
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org-w3m.el
View File

@ -32,12 +32,12 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Acknowledgments:
;;; Acknowledgements:
;; Richard Riley <rileyrgdev at googlemail dot com>
;;
;; The idea that transfomring the HTML content with org-mode style is
;; proposed by Richard, i'm just code it.
;; The idea of transforming the HTML content with org-mode style is
;; proposed by Richard, I'm just coding it.
;;
(require 'org)
@ -82,9 +82,9 @@ so that it can be yanked into an Org-mode buffer with links working correctly."
(org-make-link-string
link-location link-title))))
(goto-char temp-position) ; reset point before jump next anchor
(setq out-bound t) ; for break out `while' loop
(setq out-bound t) ; for break out `while' loop
))
;; add the rest until en end of the region to be copied
;; add the rest until end of the region to be copied
(if (< (point) transform-end)
(setq return-content
(concat return-content
@ -134,7 +134,7 @@ Otherwise, return nil."
(equal (point) (org-w3m-get-next-link-start))))
(defun org-w3m-no-prev-link-p ()
"Return t if no prevoius link after cursor.
"Return t if no previous link after cursor.
Otherwise, return nil."
(save-excursion
(equal (point) (org-w3m-get-prev-link-start))))