diff options
Diffstat (limited to 'lisp/org/org-table.el')
| -rw-r--r-- | lisp/org/org-table.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el index 0d2a2e6a973..9018bb4043b 100644 --- a/lisp/org/org-table.el +++ b/lisp/org/org-table.el @@ -1299,7 +1299,7 @@ However, when FORCE is non-nil, create new columns if necessary." (defun org-table-line-to-dline (line &optional above) "Turn a buffer line number into a data line number. If there is no data line in this line, return nil. -If there is no matching dline (most likely the reference was a hline), the +If there is no matching dline (most likely te reference was a hline), the first dline below it is used. When ABOVE is non-nil, the one above is used." (catch 'exit (let ((ll (length org-table-dlines)) @@ -2364,7 +2364,7 @@ of the new mark." (looking-at org-table-auto-recalculate-regexp)) (org-table-recalculate) t)) -(defvar modes) +(defvar org-table-modes) (defsubst org-set-calc-mode (var &optional value) (if (stringp var) (setq var (assoc var '(("D" calc-angle-mode deg) @@ -2372,10 +2372,10 @@ of the new mark." ("F" calc-prefer-frac t) ("S" calc-symbolic-mode t))) value (nth 2 var) var (nth 1 var))) - (if (memq var modes) - (setcar (cdr (memq var modes)) value) - (cons var (cons value modes))) - modes) + (if (memq var org-table-modes) + (setcar (cdr (memq var org-table-modes)) value) + (cons var (cons value org-table-modes))) + org-table-modes) (defun org-table-eval-formula (&optional arg equation suppress-align suppress-const @@ -2931,7 +2931,7 @@ known that the table will be realigned a little later anyway." (defun org-table-iterate (&optional arg) "Recalculate the table until it does not change anymore. -The maximum number of iterations is 10, but you can choose a different value +The maximun number of iterations is 10, but you can choose a different value with the prefix ARG." (interactive "P") (let ((imax (if arg (prefix-numeric-value arg) 10)) @@ -4154,7 +4154,7 @@ overwritten, and the table is not marked as requiring realignment." (looking-at "[^|\n]* +|")) (let (org-table-may-need-update) (goto-char (1- (match-end 0))) - (delete-char -1) + (backward-delete-char 1) (goto-char (match-beginning 0)) (self-insert-command N)) (setq org-table-may-need-update t) |