mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-22 10:10:42 +00:00
Merge branch 'master' of orgmode.org:org-mode
This commit is contained in:
commit
ef3d83d0cf
|
@ -1,7 +1,7 @@
|
||||||
The is a distribution of Org, a plain text notes and project planning
|
The is a distribution of Org, a plain text notes and project planning
|
||||||
tool for Emacs.
|
tool for Emacs.
|
||||||
|
|
||||||
The version of this release is: 7.8
|
The version of this release is: 7.8.01
|
||||||
|
|
||||||
The homepage of Org is at http://orgmode.org
|
The homepage of Org is at http://orgmode.org
|
||||||
|
|
||||||
|
|
|
@ -4,7 +4,7 @@
|
||||||
@setfilename ../../info/org
|
@setfilename ../../info/org
|
||||||
@settitle The Org Manual
|
@settitle The Org Manual
|
||||||
|
|
||||||
@set VERSION 7.8
|
@set VERSION 7.8.01
|
||||||
@set DATE December 2011
|
@set DATE December 2011
|
||||||
|
|
||||||
@c Use proper quote and backtick for code sections in PDF output
|
@c Use proper quote and backtick for code sections in PDF output
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
% Reference Card for Org Mode
|
% Reference Card for Org Mode
|
||||||
\def\orgversionnumber{7.8}
|
\def\orgversionnumber{7.8.01}
|
||||||
\def\versionyear{2011} % latest update
|
\def\versionyear{2011} % latest update
|
||||||
\def\year{2011} % latest copyright year
|
\def\year{2011} % latest copyright year
|
||||||
|
|
||||||
|
|
|
@ -3,7 +3,7 @@
|
||||||
@setfilename ../../info/orgguide
|
@setfilename ../../info/orgguide
|
||||||
@settitle The compact Org-mode Guide
|
@settitle The compact Org-mode Guide
|
||||||
|
|
||||||
@set VERSION 7.8
|
@set VERSION 7.8.01
|
||||||
@set DATE December 2011
|
@set DATE December 2011
|
||||||
|
|
||||||
@c Use proper quote and backtick for code sections in PDF output
|
@c Use proper quote and backtick for code sections in PDF output
|
||||||
|
|
|
@ -5,7 +5,7 @@
|
||||||
;; Authors: Sergey Litvinov (based on ob-C.el by Eric Schulte), Eric Schulte
|
;; Authors: Sergey Litvinov (based on ob-C.el by Eric Schulte), Eric Schulte
|
||||||
;; Keywords: literate programming, reproducible research, fortran
|
;; Keywords: literate programming, reproducible research, fortran
|
||||||
;; Homepage: http://orgmode.org
|
;; Homepage: http://orgmode.org
|
||||||
;; Version: 7.8
|
;; Version: 7.8.01
|
||||||
|
|
||||||
;; This program is free software; you can redistribute it and/or modify
|
;; This program is free software; you can redistribute it and/or modify
|
||||||
;; it under the terms of the GNU General Public License as published by
|
;; it under the terms of the GNU General Public License as published by
|
||||||
|
|
|
@ -244,20 +244,7 @@ to \"0:-1\"."
|
||||||
|
|
||||||
(defun org-babel-ref-split-args (arg-string)
|
(defun org-babel-ref-split-args (arg-string)
|
||||||
"Split ARG-STRING into top-level arguments of balanced parenthesis."
|
"Split ARG-STRING into top-level arguments of balanced parenthesis."
|
||||||
(let ((index 0) (depth 0) (buffer "") holder return)
|
(mapcar #'org-babel-trim (org-babel-balanced-split arg-string 44)))
|
||||||
;; crawl along string, splitting at any ","s which are on the top level
|
|
||||||
(while (< index (length arg-string))
|
|
||||||
(setq holder (substring arg-string index (+ 1 index)))
|
|
||||||
(setq buffer (concat buffer holder))
|
|
||||||
(setq index (+ 1 index))
|
|
||||||
(cond
|
|
||||||
((string= holder ",")
|
|
||||||
(when (= depth 0)
|
|
||||||
(setq return (cons (substring buffer 0 -1) return))
|
|
||||||
(setq buffer "")))
|
|
||||||
((or (string= holder "(") (string= holder "[")) (setq depth (+ depth 1)))
|
|
||||||
((or (string= holder ")") (string= holder "]")) (setq depth (- depth 1)))))
|
|
||||||
(mapcar #'org-babel-trim (reverse (cons buffer return)))))
|
|
||||||
|
|
||||||
(defvar org-bracket-link-regexp)
|
(defvar org-bracket-link-regexp)
|
||||||
(defun org-babel-ref-at-ref-p ()
|
(defun org-babel-ref-at-ref-p ()
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
;; Maintainer: Bastien Guerry <bzg at gnu dot org>
|
;; Maintainer: Bastien Guerry <bzg at gnu dot org>
|
||||||
;; Keywords: outlines, hypermedia, calendar, wp
|
;; Keywords: outlines, hypermedia, calendar, wp
|
||||||
;; Homepage: http://orgmode.org
|
;; Homepage: http://orgmode.org
|
||||||
;; Version: 7.8
|
;; Version: 7.8.01
|
||||||
;;
|
;;
|
||||||
;; This file is part of GNU Emacs.
|
;; This file is part of GNU Emacs.
|
||||||
;;
|
;;
|
||||||
|
@ -203,7 +203,7 @@ identifier."
|
||||||
|
|
||||||
;;; Version
|
;;; Version
|
||||||
|
|
||||||
(defconst org-version "7.8"
|
(defconst org-version "7.8.01"
|
||||||
"The version number of the file org.el.")
|
"The version number of the file org.el.")
|
||||||
|
|
||||||
(defun org-version (&optional here)
|
(defun org-version (&optional here)
|
||||||
|
|
|
@ -576,6 +576,13 @@ on two lines
|
||||||
#+end_src"
|
#+end_src"
|
||||||
(should (string= (org-babel-expand-noweb-references) "barbaz"))))
|
(should (string= (org-babel-expand-noweb-references) "barbaz"))))
|
||||||
|
|
||||||
|
(ert-deftest test-ob/splitting-variable-lists-in-references ()
|
||||||
|
(org-test-with-temp-text ""
|
||||||
|
(should (= 1 (length (org-babel-ref-split-args
|
||||||
|
"a=\"this, no work\""))))
|
||||||
|
(should (= 2 (length (org-babel-ref-split-args
|
||||||
|
"a=\"this, no work\", b=1"))))))
|
||||||
|
|
||||||
(provide 'test-ob)
|
(provide 'test-ob)
|
||||||
|
|
||||||
;;; test-ob ends here
|
;;; test-ob ends here
|
||||||
|
|
Loading…
Reference in a new issue