diff options
author | Sébastien Delafond <sdelafond@gmail.com> | 2015-11-27 17:40:16 +0100 |
---|---|---|
committer | Sébastien Delafond <sdelafond@gmail.com> | 2015-11-27 17:40:16 +0100 |
commit | 09600666ecbbebe86830a937658465d046e13d06 (patch) | |
tree | f8140dfdec0fdfc11323d6c491f7680673bcc0de /lisp/ob-ref.el | |
parent | 1be13d57dc8357576a8285c6dadc03db9e3ed7b0 (diff) |
Imported Upstream version 8.3.2
Diffstat (limited to 'lisp/ob-ref.el')
-rw-r--r-- | lisp/ob-ref.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ob-ref.el b/lisp/ob-ref.el index b8a921e..6e690ab 100644 --- a/lisp/ob-ref.el +++ b/lisp/ob-ref.el @@ -139,7 +139,7 @@ the variable." (setq ref (substring ref 0 (match-beginning 0)))) ;; assign any arguments to pass to source block (when (string-match - "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)\(\\(.*\\)\)$" ref) + "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" ref) (setq new-refere (match-string 1 ref)) (setq new-header-args (match-string 3 ref)) (setq new-referent (match-string 5 ref)) @@ -177,7 +177,7 @@ the variable." ;; buffer (marker-buffer id-loc) ;; loc (marker-position id-loc)) ;; (move-marker id-loc nil) - (error "Reference '%s' not found in this buffer" ref)) + (error "Reference `%s' not found in this buffer" ref)) (cond (lob-info (setq type 'lob)) (id (setq type 'id)) @@ -234,7 +234,7 @@ returned, or an empty string or \"*\" both of which are interpreted to mean the entire range and as such are equivalent to \"0:-1\"." (if (and (> (length index) 0) (string-match "^\\([^,]*\\),?" index)) - (let* ((ind-re "\\(\\([-[:digit:]]+\\):\\([-[:digit:]]+\\)\\|\*\\)") + (let* ((ind-re "\\(\\([-[:digit:]]+\\):\\([-[:digit:]]+\\)\\|\\*\\)") (lgth (length lis)) (portion (match-string 1 index)) (remainder (substring index (match-end 0))) |