summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-08-10 15:02:45 +0200
committerBastien Guerry <bzg@altern.org>2012-08-10 15:02:45 +0200
commit002b700cb39c95802fc917e34e3f060ea701a795 (patch)
tree75a1e5fdf79d88580ad4d1b5a297162772b72635
parent090634584ed42f3681b2ac0021b0163bd97edd12 (diff)
downloadorg-mode-002b700cb39c95802fc917e34e3f060ea701a795.tar.gz
Use ̀org-looking-back' instead of `looking-back' to keep compat with XEmacs
* org-clock.el (org-clock-cancel): Use `org-looking-back'. * org-pcomplete.el (org-thing-at-point): Ditto. * org.el (org-timestamp-change): Ditto.
-rw-r--r--lisp/org-clock.el2
-rw-r--r--lisp/org-pcomplete.el4
-rw-r--r--lisp/org.el2
3 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 46af81a..a3ae730 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -1597,7 +1597,7 @@ UPDOWN tells whether to change 'up or 'down."
(save-excursion ; Do not replace this with `with-current-buffer'.
(org-no-warnings (set-buffer (org-clocking-buffer)))
(goto-char org-clock-marker)
- (if (looking-back (concat "^[ \t]*" org-clock-string ".*"))
+ (if (org-looking-back (concat "^[ \t]*" org-clock-string ".*"))
(progn (delete-region (1- (point-at-bol)) (point-at-eol))
(org-remove-empty-drawer-at "LOGBOOK" (point)))
(message "Clock gone, cancel the timer anyway")
diff --git a/lisp/org-pcomplete.el b/lisp/org-pcomplete.el
index 286292b..858dbc5 100644
--- a/lisp/org-pcomplete.el
+++ b/lisp/org-pcomplete.el
@@ -93,8 +93,8 @@ The return value is a string naming the thing at point."
(skip-chars-backward "[ \t\n]")
;; org-drawer-regexp matches a whole line but while
;; looking-back, we just ignore trailing whitespaces
- (or (looking-back (substring org-drawer-regexp 0 -1))
- (looking-back org-property-re))))
+ (or (org-looking-back (substring org-drawer-regexp 0 -1))
+ (org-looking-back org-property-re))))
(cons "prop" nil))
((and (equal (char-before beg1) ?:)
(not (equal (char-after (point-at-bol)) ?*)))
diff --git a/lisp/org.el b/lisp/org.el
index 82c9c28..b9d0106 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -16463,7 +16463,7 @@ in the timestamp determines what will be changed."
(message "No clock to adjust")
(cond ((save-excursion ; fix previous clock?
(re-search-backward org-ts-regexp0 nil t)
- (looking-back (concat org-clock-string " \\[")))
+ (org-looking-back (concat org-clock-string " \\[")))
(setq fixnext 1 clrgx (concat org-ts-regexp0 "\\] =>.*$")))
((save-excursion ; fix next clock?
(re-search-backward org-ts-regexp0 nil t)