mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-23 18:47:57 +00:00
Remove some XEmacs compat code from org-mode
* lisp/org/ol-eww.el (org-eww-copy-for-org-mode): * lisp/org/ol-w3m.el (org-w3m-copy-for-org-mode): * lisp/org/org-refile.el (org-refile): * lisp/org/org.el (org-change-tag-in-region): Remove XEmacs compat code.
This commit is contained in:
parent
db492b1e41
commit
cc8b6101f4
@ -115,7 +115,7 @@ keep the structure of the Org file."
|
||||
(setq transform-start (region-beginning))
|
||||
(setq transform-end (region-end))
|
||||
;; Deactivate mark if current mark is activate.
|
||||
(when (fboundp 'deactivate-mark) (deactivate-mark)))
|
||||
(deactivate-mark))
|
||||
(message "Transforming links...")
|
||||
(save-excursion
|
||||
(goto-char transform-start)
|
||||
|
@ -72,7 +72,7 @@ so that it can be yanked into an Org buffer with links working correctly."
|
||||
(setq transform-start (region-beginning))
|
||||
(setq transform-end (region-end))
|
||||
;; Deactivate mark if current mark is activate.
|
||||
(when (fboundp 'deactivate-mark) (deactivate-mark)))
|
||||
(deactivate-mark))
|
||||
(message "Transforming links...")
|
||||
(save-excursion
|
||||
(goto-char transform-start)
|
||||
|
@ -577,7 +577,7 @@ prefix argument (`C-u C-u C-u C-c C-w')."
|
||||
(with-demoted-errors "Bookmark set error: %S"
|
||||
(bookmark-set bookmark-name))))
|
||||
(move-marker org-capture-last-stored-marker (point)))
|
||||
(when (fboundp 'deactivate-mark) (deactivate-mark))
|
||||
(deactivate-mark)
|
||||
(run-hooks 'org-after-refile-insert-hook)))
|
||||
(unless org-refile-keep
|
||||
(if regionp
|
||||
|
@ -12160,7 +12160,7 @@ This works in the agenda, and also in an Org buffer."
|
||||
(progn
|
||||
(message "[s]et or [r]emove? ")
|
||||
(equal (read-char-exclusive) ?r))))
|
||||
(when (fboundp 'deactivate-mark) (deactivate-mark))
|
||||
(deactivate-mark)
|
||||
(let ((agendap (equal major-mode 'org-agenda-mode))
|
||||
l1 l2 m buf pos newhead (cnt 0))
|
||||
(goto-char end)
|
||||
|
Loading…
Reference in New Issue
Block a user