diff options
author | Bastien Guerry <bzg@altern.org> | 2012-08-20 05:45:25 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-08-20 05:45:25 +0200 |
commit | 8393a76f783a041dd4ccad2bbc9fcd7169214c68 (patch) | |
tree | c73d9564e1c545789d1b8d7de9f9804b6a6efca8 | |
parent | 58a6d823ee82cade1805fa032583608174f6a305 (diff) | |
download | org-mode-8393a76f783a041dd4ccad2bbc9fcd7169214c68.tar.gz |
Always use the compatibility function `org-region-active-p'
* org.el (org-create-math-formula): Use the compatibility
function `org-region-active-p'.
* org-odt.el (org-export-as-odf): Ditto.
* ob.el (org-babel-demarcate-block): Ditto.
-rw-r--r-- | lisp/ob.el | 4 | ||||
-rw-r--r-- | lisp/org-odt.el | 2 | ||||
-rw-r--r-- | lisp/org.el | 2 |
3 files changed, 4 insertions, 4 deletions
@@ -1685,13 +1685,13 @@ region is not active then the point is demarcated." "" (concat "\n" (make-string (current-column) ? ))))))) (move-end-of-line 2)) - (sort (if (region-active-p) (list (mark) (point)) (list (point))) #'>)) + (sort (if (org-region-active-p) (list (mark) (point)) (list (point))) #'>)) (let ((start (point)) (lang (org-icompleting-read "Lang: " (mapcar (lambda (el) (symbol-name (car el))) org-babel-load-languages))) (body (delete-and-extract-region - (if (region-active-p) (mark) (point)) (point)))) + (if (org-region-active-p) (mark) (point)) (point)))) (insert (concat (if (looking-at "^") "" "\n") (if arg (concat stars "\n") "") "#+begin_src " lang "\n" diff --git a/lisp/org-odt.el b/lisp/org-odt.el index 17c2331..bc5bf73 100644 --- a/lisp/org-odt.el +++ b/lisp/org-odt.el @@ -2796,7 +2796,7 @@ MathML source to kill ring, if `org-export-copy-to-kill-ring' is non-nil." (interactive `(,(let (frag) - (setq frag (and (setq frag (and (region-active-p) + (setq frag (and (setq frag (and (org-region-active-p) (buffer-substring (region-beginning) (region-end)))) (loop for e in org-latex-regexps diff --git a/lisp/org.el b/lisp/org.el index 36e843fe..e01d741 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -17394,7 +17394,7 @@ write the results in to that file. When invoked as an interactive command, prompt for LATEX-FRAG, with initial value set to the current active region and echo the results for user inspection." - (interactive (list (let ((frag (when (region-active-p) + (interactive (list (let ((frag (when (org-region-active-p) (buffer-substring-no-properties (region-beginning) (region-end))))) (read-string "LaTeX Fragment: " frag nil frag)))) |