diff options
| author | Carsten Dominik | 2007-11-06 07:00:47 +0000 |
|---|---|---|
| committer | Carsten Dominik | 2007-11-06 07:00:47 +0000 |
| commit | 8635fef07a753b0e32e7c205a8359fcc69cc66fb (patch) | |
| tree | 93c238d131156c2a37580ba445f51afabf6ad314 | |
| parent | dfdaf4ee53e41f9c548d03350689167380df3803 (diff) | |
| download | emacs-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.el | 5 |
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)) |