Replace org-mode-p with usual (eq major-mode 'org-mode) check
[org-mode.git] / lisp / org-colview-xemacs.el
index b32e741..3b66925 100644 (file)
@@ -353,7 +353,7 @@ This is the compiled version of the format.")
                          (funcall org-columns-modify-value-for-display-function
                                   title val))
                         ((equal property "ITEM")
-                         (if (org-mode-p)
+                         (if (eq major-mode 'org-mode)
                              (org-columns-cleanup-item
                               val org-columns-current-fmt-compiled)))
                         ((and calc (functionp calc)
@@ -657,7 +657,7 @@ Where possible, use the standard interface for changing this line."
                (org-columns-eval eval))
            (org-columns-display-here)))
        (org-move-to-column col)
-       (if (and (org-mode-p)
+       (if (and (eq major-mode 'org-mode)
                 (nth 3 (assoc key org-columns-current-fmt-compiled)))
            (org-columns-update key)))))))
 
@@ -1166,7 +1166,7 @@ Don't set this, this is meant for dynamic scoping.")
     (if (marker-position org-columns-begin-marker)
        (goto-char org-columns-begin-marker))
     (org-columns-remove-overlays)
-    (if (org-mode-p)
+    (if (eq major-mode 'org-mode)
        (call-interactively 'org-columns)
       (org-agenda-redo)
       (call-interactively 'org-agenda-columns)))