Replace org-mode-p with usual (eq major-mode 'org-mode) check
[org-mode.git] / lisp / org-archive.el
index 16c35cf..1d68a9e 100644 (file)
@@ -253,7 +253,7 @@ this heading."
        (let (this-command) (org-copy-subtree 1 nil t))
        (set-buffer buffer)
        ;; Enforce org-mode for the archive buffer
-       (if (not (org-mode-p))
+       (if (not (eq major-mode 'org-mode))
            ;; Force the mode for future visits.
            (let ((org-insert-mode-line-in-empty-file t)
                  (org-inhibit-startup t))