procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(org-no-warnings): New macro.

Browse source 
(org-columns-eval): Use `org-no-warnings'.
This commit is contained in:
Carsten Dominik 2007-10-25 14:24:43 +00:00
parent 429f0457ea
commit 557f46f04b
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/textmodes/org.el
View file

@ -15611,14 +15611,15 @@ Where possible, use the standard interface for changing this line."
org-columns-top-level-marker))
key1 nval)))
(defmacro org-no-warnings (&rest body)
(cons (if (fboundp 'with-no-warnings) 'with-no-warnings 'progn) body))
(defun org-columns-eval (form)
(let (hidep)
(save-excursion
(beginning-of-line 1)
;; `next-line' is needed here, because it skips invisible line.
;; FIXME: RMS says this should be wrapped into `with-no-warnings'
;; but I don't know how to do this and keep the code XEmacs compatible.
(condition-case nil (next-line 1) (error nil))
(condition-case nil (org-no-warnings (next-line 1)) (error nil))
(setq hidep (org-on-heading-p 1)))
(eval form)
(and hidep (hide-entry))))
@ -26486,3 +26487,4 @@ Respect keys that are already there."
;; arch-tag: e77da1a7-acc7-4336-b19e-efa25af3f9fd
;;; org.el ends here