org.texi: Fix indendation of Elisp code examples.

* org.texi (System-wide header arguments)
(Header arguments in Org mode properties, Conflicts)
(Dynamic blocks, Using the mapping API): Fix indendation of
Elisp code examples.
This commit is contained in:
Bastien Guerry 2012-12-12 08:50:00 +01:00
parent 20b3d550e0
commit 7abad97db7

View file

@ -13156,8 +13156,8 @@ blocks.
@lisp @lisp
(setq org-babel-default-header-args (setq org-babel-default-header-args
(cons '(:noweb . "yes") (cons '(:noweb . "yes")
(assq-delete-all :noweb org-babel-default-header-args))) (assq-delete-all :noweb org-babel-default-header-args)))
@end lisp @end lisp
@node Language-specific header arguments, Buffer-wide header arguments, System-wide header arguments, Using header arguments @node Language-specific header arguments, Buffer-wide header arguments, System-wide header arguments, Using header arguments
@ -13202,9 +13202,9 @@ blocks in the subtree rooted at the following heading:
@example @example
* outline header * outline header
:PROPERTIES: :PROPERTIES:
:cache: yes :cache: yes
:END: :END:
@end example @end example
@kindex C-c C-x p @kindex C-c C-x p
@ -15402,7 +15402,7 @@ function:
@lisp @lisp
(defun yas/org-very-safe-expand () (defun yas/org-very-safe-expand ()
(let ((yas/fallback-behavior 'return-nil)) (yas/expand))) (let ((yas/fallback-behavior 'return-nil)) (yas/expand)))
@end lisp @end lisp
Then, tell Org mode what to do with the new function: Then, tell Org mode what to do with the new function:
@ -15410,10 +15410,10 @@ Then, tell Org mode what to do with the new function:
@lisp @lisp
(add-hook 'org-mode-hook (add-hook 'org-mode-hook
(lambda () (lambda ()
(make-variable-buffer-local 'yas/trigger-key) (make-variable-buffer-local 'yas/trigger-key)
(setq yas/trigger-key [tab]) (setq yas/trigger-key [tab])
(add-to-list 'org-tab-first-hook 'yas/org-very-safe-expand) (add-to-list 'org-tab-first-hook 'yas/org-very-safe-expand)
(define-key yas/keymap [tab] 'yas/next-field))) (define-key yas/keymap [tab] 'yas/next-field)))
@end lisp @end lisp
@item @file{windmove.el} by Hovav Shacham @item @file{windmove.el} by Hovav Shacham
@ -16054,9 +16054,9 @@ The corresponding block writer function could look like this:
@lisp @lisp
(defun org-dblock-write:block-update-time (params) (defun org-dblock-write:block-update-time (params)
(let ((fmt (or (plist-get params :format) "%d. %m. %Y"))) (let ((fmt (or (plist-get params :format) "%d. %m. %Y")))
(insert "Last block update at: " (insert "Last block update at: "
(format-time-string fmt (current-time))))) (format-time-string fmt (current-time)))))
@end lisp @end lisp
If you want to make sure that all dynamic blocks are always up-to-date, If you want to make sure that all dynamic blocks are always up-to-date,
@ -16451,8 +16451,8 @@ Entries in comment trees and in archive trees will be ignored.
@lisp @lisp
(org-map-entries (org-map-entries
'(org-todo "UPCOMING") '(org-todo "UPCOMING")
"+TOMORROW" 'file 'archive 'comment) "+TOMORROW" 'file 'archive 'comment)
@end lisp @end lisp
The following example counts the number of entries with TODO keyword The following example counts the number of entries with TODO keyword