tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Move `org-no-popups' to "org-macs.el" 

* lisp/org-compat.el (org-no-popups): Move function...
* lisp/org-macs.el : ... here.
This commit is contained in:
Nicolas Goaziou 2018-04-30 13:58:25 +02:00
parent 5c12c21a73
commit 6d4e0b3dd1
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-compat.el
View File

@ -549,11 +549,6 @@ Pass COLUMN and FORCE to `move-to-column'."
"Return the local name component of FILE."
(or (file-remote-p file 'localname) file))))
(defmacro org-no-popups (&rest body)
"Suppress popup windows and evaluate BODY."
`(let (pop-up-frames display-buffer-alist)
,@body))
;;;###autoload
(defmacro org-check-version ()
"Try very hard to provide sensible version strings."

7
lisp/org-macs.el
View File

@ -32,7 +32,7 @@
;;; Code:
(declare-function format-spec "format-spec" (format specification))
(declare-function org-string-collate-less-p "org-compat" (s1 s2 &rest _))
(declare-function org-string-collate-lessp "org-compat" (s1 s2 &rest _))
;;; Macros
@ -192,6 +192,11 @@ because otherwise all these markers will point to nowhere."
(unless (bolp) (insert "\n"))
(insert local-variables))))))
(defmacro org-no-popups (&rest body)
"Suppress popup windows and evaluate BODY."
`(let (pop-up-frames display-buffer-alist)
,@body))
;;; Buffer and windows