diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2016-01-25 10:11:31 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2016-01-25 10:11:31 -0500 |
| commit | 1203e8aecb7f49621af52cc13bc0e4427545dd4f (patch) | |
| tree | 2ed4d622865d7485dcdd61f87795575f00574994 /lisp/org/org-src.el | |
| parent | bb1bfb7123ff7149f47cdb64570d353e4918bd57 (diff) | |
| download | emacs-1203e8aecb7f49621af52cc13bc0e4427545dd4f.tar.gz emacs-1203e8aecb7f49621af52cc13bc0e4427545dd4f.tar.bz2 emacs-1203e8aecb7f49621af52cc13bc0e4427545dd4f.zip | |
* lisp/org: Fix some compiler warnings
* lisp/org/ob-core.el (org-babel-check-confirm-evaluate)
(org-babel-map-src-blocks): Don't emit warnings if added vars are not used.
(*this*): Declare as dyn-bound.
(org-babel-expand-src-block, org-babel-load-in-session)
(org-babel-switch-to-session-with-code, org-babel-get-rownames):
Mark unused args.
(org-babel-combine-header-arg-lists): Remove unused var `args'.
(org-babel-find-named-block): Remove unused var `msg'.
* lisp/org/org-src.el (org-inhibit-startup, org-src-fontify-natively):
Declare as dyn-bound.
(org-edit-src-code): Remove unused var `lfmt'.
(org-edit-fixed-width-region): Remove unused var `preserve-indentation'.
Diffstat (limited to 'lisp/org/org-src.el')
| -rw-r--r-- | lisp/org/org-src.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/org/org-src.el b/lisp/org/org-src.el index 8e06aaa04c6..f0d393f8e8b 100644 --- a/lisp/org/org-src.el +++ b/lisp/org/org-src.el @@ -232,6 +232,8 @@ There is a mode hook, and keybindings for `org-edit-src-exit' and `org-edit-src-save'") (defvar org-edit-src-code-timer nil) +(defvar org-inhibit-startup) + (defun org-edit-src-code (&optional context code edit-buffer-name) "Edit the source CODE block at point. The code is copied to a separate buffer and the appropriate mode @@ -265,7 +267,7 @@ the display of windows containing the Org buffer and the code buffer." ;; just one empty line, i.e. beg == end. (end (copy-marker (make-marker) t)) (allow-write-back-p (null code)) - block-nindent total-nindent ovl lang lang-f single lfmt buffer msg + block-nindent total-nindent ovl lang lang-f single buffer msg begline markline markcol line col transmitted-variables) (setq beg (move-marker beg (nth 0 info)) end (move-marker end (nth 1 info)) @@ -471,7 +473,6 @@ the fragment in the Org-mode buffer." (org-mode-p (derived-mode-p 'org-mode)) (beg (make-marker)) (end (make-marker)) - (preserve-indentation org-src-preserve-indentation) block-nindent ovl beg1 end1 code begline buffer) (beginning-of-line 1) (if (looking-at "[ \t]*[^:\n \t]") @@ -928,6 +929,8 @@ fontification of code blocks see `org-src-fontify-block' and '(font-lock-fontified t fontified t font-lock-multiline t)) (set-buffer-modified-p modified))))) +(defvar org-src-fontify-natively) + (defun org-src-fontify-block () "Fontify code block at point." (interactive) |