mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 03:20:01 +00:00
Fix typos and whitespace in org-w3m.el
This commit is contained in:
parent
298b9cb489
commit
3f57ccf0f0
|
@ -32,12 +32,12 @@
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;;
|
;;
|
||||||
;;; Acknowledgments:
|
;;; Acknowledgements:
|
||||||
|
|
||||||
;; Richard Riley <rileyrgdev at googlemail dot com>
|
;; Richard Riley <rileyrgdev at googlemail dot com>
|
||||||
;;
|
;;
|
||||||
;; The idea that transfomring the HTML content with org-mode style is
|
;; The idea of transforming the HTML content with org-mode style is
|
||||||
;; proposed by Richard, i'm just code it.
|
;; proposed by Richard, I'm just coding it.
|
||||||
;;
|
;;
|
||||||
|
|
||||||
(require 'org)
|
(require 'org)
|
||||||
|
@ -84,7 +84,7 @@ so that it can be yanked into an Org-mode buffer with links working correctly."
|
||||||
(goto-char temp-position) ; reset point before jump next anchor
|
(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)
|
(if (< (point) transform-end)
|
||||||
(setq return-content
|
(setq return-content
|
||||||
(concat return-content
|
(concat return-content
|
||||||
|
@ -134,7 +134,7 @@ Otherwise, return nil."
|
||||||
(equal (point) (org-w3m-get-next-link-start))))
|
(equal (point) (org-w3m-get-next-link-start))))
|
||||||
|
|
||||||
(defun org-w3m-no-prev-link-p ()
|
(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."
|
Otherwise, return nil."
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(equal (point) (org-w3m-get-prev-link-start))))
|
(equal (point) (org-w3m-get-prev-link-start))))
|
||||||
|
|
Loading…
Reference in a new issue