forked from mirrors/org-mode
org-agenda.el (org-get-time-of-day): Don't return time string from within links
* org-agenda.el (org-get-time-of-day): Don't return time string from within links. Thanks to Thomas Morgan for reporting this.
This commit is contained in:
parent
e3d2c1b0c9
commit
061904b58e
|
@ -6753,8 +6753,10 @@ The optional STRING argument forces conversion into a 5 character wide string
|
||||||
HH:MM."
|
HH:MM."
|
||||||
(save-match-data
|
(save-match-data
|
||||||
(when
|
(when
|
||||||
(or (string-match "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)\\([AaPp][Mm]\\)?\\> *" s)
|
(and
|
||||||
(string-match "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)?\\([AaPp][Mm]\\)\\> *" s))
|
(or (string-match "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)\\([AaPp][Mm]\\)?\\> *" s)
|
||||||
|
(string-match "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)?\\([AaPp][Mm]\\)\\> *" s))
|
||||||
|
(not (eq (get-text-property 1 'face s) 'org-link)))
|
||||||
(let* ((h (string-to-number (match-string 1 s)))
|
(let* ((h (string-to-number (match-string 1 s)))
|
||||||
(m (if (match-end 3) (string-to-number (match-string 3 s)) 0))
|
(m (if (match-end 3) (string-to-number (match-string 3 s)) 0))
|
||||||
(ampm (if (match-end 4) (downcase (match-string 4 s))))
|
(ampm (if (match-end 4) (downcase (match-string 4 s))))
|
||||||
|
|
Loading…
Reference in New Issue