ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ignore indentation for all keywords 

* lisp/org-archive.el (org-get-local-archive-location): Ignore
  identation for ARCHIVE keywords.
* lisp/org-colview.el (org-columns-store-format): Ignore indentation
  for COLUMNS keywords.
* lisp/org.el (org-mode): Keywords can start at any column.
(org-reftex-citation): Ignore indentation for BIBLIOGRAPHY keywords.
(org-make-options-regexp): Ignore indentation for all keywords.
This commit is contained in:
Nicolas Goaziou 2014-03-12 19:54:05 +01:00
parent c62b19eb2a
commit 07158efa53
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org-archive.el
View File

@ -121,7 +121,7 @@ information."
(defun org-get-local-archive-location () (defun org-get-local-archive-location ()
"Get the archive location applicable at point." "Get the archive location applicable at point."
(let ((re "^#\\+ARCHIVE:[ \t]+\\(\\S-.*\\S-\\)[ \t]*$") (let ((re "^[ \t]*#\\+ARCHIVE:[ \t]+\\(\\S-.*\\S-\\)[ \t]*$")
prop) prop)
(save-excursion (save-excursion
(save-restriction (save-restriction

2
lisp/org-colview.el
View File

@ -900,7 +900,7 @@ display, or in the #+COLUMNS line of the current buffer."
(org-entry-put nil "COLUMNS" fmt) (org-entry-put nil "COLUMNS" fmt)
(goto-char (point-min)) (goto-char (point-min))
;; Overwrite all #+COLUMNS lines.... ;; Overwrite all #+COLUMNS lines....
(while (re-search-forward "^#\\+COLUMNS:.*" nil t) (while (re-search-forward "^[ \t]*#\\+COLUMNS:.*" nil t)
(setq cnt (1+ cnt)) (setq cnt (1+ cnt))
(replace-match (concat "#+COLUMNS: " fmt) t t)) (replace-match (concat "#+COLUMNS: " fmt) t t))
(unless (> cnt 0) (unless (> cnt 0)

6
lisp/org.el
View File

@ -5464,7 +5464,7 @@ The following commands are available:
(org-set-local (org-set-local
'align-mode-rules-list 'align-mode-rules-list
'((org-in-buffer-settings '((org-in-buffer-settings
(regexp . "^#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (regexp . "^[ \t]*#\\+[A-Z_]+:\\(\\s-*\\)\\S-+")
(modes . '(org-mode))))) (modes . '(org-mode)))))
;; Imenu ;; Imenu
@ -22980,7 +22980,7 @@ package ox-bibtex by Taru Karttunen."
(save-restriction (save-restriction
(widen) (widen)
(let ((case-fold-search t) (let ((case-fold-search t)
(re "^#\\+bibliography:[ \t]+\\([^ \t\n]+\\)")) (re "^[ \t]*#\\+BIBLIOGRAPHY:[ \t]+\\([^ \t\n]+\\)"))
(if (not (save-excursion (if (not (save-excursion
(or (re-search-forward re nil t) (or (re-search-forward re nil t)
(re-search-backward re nil t)))) (re-search-backward re nil t))))
@ -23981,7 +23981,7 @@ Show the heading too, if it is currently invisible."
(defun org-make-options-regexp (kwds &optional extra) (defun org-make-options-regexp (kwds &optional extra)
"Make a regular expression for keyword lines." "Make a regular expression for keyword lines."
(concat (concat
"^#\\+\\(" "^[ \t]*#\\+\\("
(mapconcat 'regexp-quote kwds "\\|") (mapconcat 'regexp-quote kwds "\\|")
(if extra (concat "\\|" extra)) (if extra (concat "\\|" extra))
"\\):[ \t]*\\(.*\\)")) "\\):[ \t]*\\(.*\\)"))