aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorCarsten Dominik2007-11-06 07:00:47 +0000
committerCarsten Dominik2007-11-06 07:00:47 +0000
commit8635fef07a753b0e32e7c205a8359fcc69cc66fb (patch)
tree93c238d131156c2a37580ba445f51afabf6ad314
parentdfdaf4ee53e41f9c548d03350689167380df3803 (diff)
downloademacs-8635fef07a753b0e32e7c205a8359fcc69cc66fb.tar.gz
emacs-8635fef07a753b0e32e7c205a8359fcc69cc66fb.zip
* textmodes/org.el (org-table-formula-substitute-names): Removed
forgotten temporary debugging code.
-rw-r--r--lisp/textmodes/org.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el
index 4ba90216d85..b555e6c1102 100644
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -5,7 +5,7 @@
5;; Author: Carsten Dominik <carsten at orgmode dot org> 5;; Author: Carsten Dominik <carsten at orgmode dot org>
6;; Keywords: outlines, hypermedia, calendar, wp 6;; Keywords: outlines, hypermedia, calendar, wp
7;; Homepage: http://orgmode.org 7;; Homepage: http://orgmode.org
8;; Version: 5.13g 8;; Version: 5.13i
9;; 9;;
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
11;; 11;;
@@ -83,7 +83,7 @@
83 83
84;;; Version 84;;; Version
85 85
86(defconst org-version "5.13g" 86(defconst org-version "5.13i"
87 "The version number of the file org.el.") 87 "The version number of the file org.el.")
88(defun org-version () 88(defun org-version ()
89 (interactive) 89 (interactive)
@@ -9780,7 +9780,6 @@ With prefix arg ALL, do this for all lines in the table."
9780 9780
9781(defun org-table-formula-substitute-names (f) 9781(defun org-table-formula-substitute-names (f)
9782 "Replace $const with values in string F." 9782 "Replace $const with values in string F."
9783 (message "form %s" f) (sit-for 1)
9784 (let ((start 0) a (f1 f) (pp (/= (string-to-char f) ?'))) 9783 (let ((start 0) a (f1 f) (pp (/= (string-to-char f) ?')))
9785 ;; First, check for column names 9784 ;; First, check for column names
9786 (while (setq start (string-match org-table-column-name-regexp f start)) 9785 (while (setq start (string-match org-table-column-name-regexp f start))