[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH]: New Add defun org-mode-or-derived-mode-p
From: |
Stefan Reichör |
Subject: |
[O] [PATCH]: New Add defun org-mode-or-derived-mode-p |
Date: |
Fri, 02 Sep 2011 13:09:09 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) |
2011-09-02 Stefan Reichoer <address@hidden>
Add org-mode-or-derived-mode-p to support org-mode derived modes
* org-macs.el (org-mode-or-derived-mode-p): New defun
* org-src.el (org-edit-src-code): Use org-mode-or-derived-mode-p
* org.el (org-entry-properties): Use org-mode-or-derived-mode-p instead
of org-mode-p
git diff -M HEAD
M lisp/org-macs.el
M lisp/org-src.el
M lisp/org.el
diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index 13aff02..7603b42 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -276,6 +276,10 @@ we turn off invisibility temporarily. Use this in a `let'
form."
"Check if the current buffer is in Org-mode."
(eq major-mode 'org-mode))
+(defun org-mode-or-derived-mode-p ()
+ "Check if the current buffer is in Org-mode or a derived mode."
+ (if (derived-mode-p 'org-mode) t nil))
+
(defsubst org-last (list)
"Return the last element of LIST."
(car (last list)))
diff --git a/lisp/org-src.el b/lisp/org-src.el
index 0e8b1b1..a62f8da 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -215,7 +215,7 @@ buffer."
(case-fold-search t)
(info (org-edit-src-find-region-and-lang))
(full-info (org-babel-get-src-block-info))
- (org-mode-p (or (org-mode-p) (derived-mode-p 'org-mode)))
+ (org-mode-p (org-mode-or-derived-mode-p))
(beg (make-marker))
(end (make-marker))
(allow-write-back-p (null code))
diff --git a/lisp/org.el b/lisp/org.el
index d63b854..d82425c 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -13828,7 +13828,7 @@ things up because then unnecessary parsing is avoided."
beg end range props sum-props key key1 value string clocksum)
(save-excursion
(when (condition-case nil
- (and (org-mode-p) (org-back-to-heading t))
+ (and (org-mode-or-derived-mode-p) (org-back-to-heading t))
(error nil))
(setq beg (point))
(setq sum-props (get-text-property (point) 'org-summaries))
- [O] [PATCH]: New Add defun org-mode-or-derived-mode-p,
Stefan Reichör <=