mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 22:47:56 +00:00
Code Releases Activity

org-w3m.el: Always deactivate the mark after copying.

Browse source 
Patch from Andy Steward.
This commit is contained in:
Carsten Dominik 2009-01-06 09:50:45 +01:00
parent 0ccc48c78a
commit c52ec32582
2 changed files with 4 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2009-01-06 Carsten Dominik <carsten.dominik@gmail.com>
* org-w3m.el (org-w3m-copy-for-org-mode): Always deactivate the
mark after copying.
* org-agenda.el (org-run-agenda-series): Have series options set
when finalizing the agenda.

13
lisp/org-w3m.el
View file

@ -43,16 +43,6 @@
(require 'org)
(declare-function w3m-anchor "ext:w3m-util" (position))
(defgroup org-w3m nil
"Transforming the HTML content in w3m buffer with org-mode style."
:group 'org)
(defcustom org-w3m-deactivate-mark t
"Non-nil means, deactivate mark after copying and region in Org-mode style.
When nil, keep the region active."
:type 'boolean
:group 'org-w3m)
(defun org-w3m-copy-for-org-mode ()
"Copy current buffer content or active region with `org-mode' style links.
This will encode `link-title' and `link-location' with
@ -69,8 +59,7 @@ so that it can be yanked into an Org-mode buffer with links working correctly."
(setq transform-start (region-beginning))
(setq transform-end (region-end))
;; Deactivate mark if current mark is activate.
(if org-w3m-deactivate-mark
(deactivate-mark)))
(if (fboundp 'deactivate-mark) (deactivate-mark)))
(message "Transforming links...")
(save-excursion
(goto-char transform-start)