diff options
author | Bastien Guerry <bzg@altern.org> | 2012-08-10 15:02:45 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-08-10 15:02:45 +0200 |
commit | 002b700cb39c95802fc917e34e3f060ea701a795 (patch) | |
tree | 75a1e5fdf79d88580ad4d1b5a297162772b72635 | |
parent | 090634584ed42f3681b2ac0021b0163bd97edd12 (diff) | |
download | org-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.el | 2 | ||||
-rw-r--r-- | lisp/org-pcomplete.el | 4 | ||||
-rw-r--r-- | lisp/org.el | 2 |
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) |