mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-28 10:56:57 +00:00
Code

Fix some compiler warnings.

Browse Source 
* org.el (org-in-fixed-width-region-p): Define before use.

* org-src.el (org-in-src-block-p): Declare function.
This commit is contained in:
Bastien Guerry 2012-12-20 01:16:01 +01:00
parent 23e2346c4c
commit 963ede0a9d
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/org-src.el
View File

@ -39,6 +39,7 @@
(declare-function org-do-remove-indentation "org" (&optional n))
(declare-function org-at-table.el-p "org" ())
(declare-function org-in-src-block-p "org" (&optional inside))
(declare-function org-get-indentation "org" (&optional line))
(declare-function org-switch-to-buffer-other-window "org" (&rest args))
(declare-function org-pop-to-buffer-same-window

8
lisp/org.el
View File

@ -18958,6 +18958,10 @@ See the individual commands for more information."
(org-table-paste-rectangle)
(org-paste-subtree arg)))
(defsubst org-in-fixed-width-region-p ()
"Is point in a fixed-width region?"
(eq 'fixed-width (org-element-type (org-element-at-point))))
(defun org-edit-special (&optional arg)
"Call a special editor for the stuff at point.
When at a table, call the formula editor with `org-table-edit-formulas'.
@ -20255,10 +20259,6 @@ when point is at #+BEGIN_SRC or #+END_SRC."
(move-beginning-of-line 1)
(looking-at ".*#\\+\\(BEGIN\\|END\\)_SRC")))))))
(defsubst org-in-fixed-width-region-p ()
"Is point in a fixed-width region?"
(eq 'fixed-width (org-element-type (org-element-at-point))))
(defun org-context ()
"Return a list of contexts of the current cursor position.
If several contexts apply, all are returned.