mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

org-table: Add missing "cl-" prefixes

Browse Source 
* lisp/org-table.el (org-table--descriptor-line):
(org-table--row-type): Add "cl-" prefixes.
This commit is contained in:
Nicolas Goaziou 2016-05-26 16:12:42 +02:00
parent f9ad16b22a
commit 6176357b47
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-table.el
View File

@ -3012,7 +3012,7 @@ The cursor is currently in relative line number CLINE."
(when (and hn (not hdir))
(setq cline 0)
(setq hdir "+")
(when (eq (aref org-table-current-line-types 0) 'hline) (decf hn)))
(when (eq (aref org-table-current-line-types 0) 'hline) (cl-decf hn)))
(when (and (not hn) on (not odir)) (user-error "Should never happen"))
(when hn
(setq cline
@ -3043,7 +3043,7 @@ search, as a string."
((eq org-table-relative-ref-may-cross-hline t))
((eq org-table-relative-ref-may-cross-hline 'error)
(user-error "Row descriptor %s crosses hline" desc))
(t (decf i (if backwards -1 1)) ; Step back.
(t (cl-decf i (if backwards -1 1)) ; Step back.
(throw :exit nil)))))))
(cond ((or (< i 0) (>= i l))
(user-error "Row descriptor %s leads outside table" desc))