Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
30ab4580
Commit
30ab4580
authored
Oct 28, 2008
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(org-agenda-align-tags): Replace use of cl `adjoin'.
parent
fc012771
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
6 deletions
+6
-6
lisp/org/org-agenda.el
lisp/org/org-agenda.el
+6
-6
No files found.
lisp/org/org-agenda.el
View file @
30ab4580
...
...
@@ -4984,12 +4984,12 @@ the new TODO state."
(
if
line
(
point-at-eol
)
nil
)
t
)
(
add-text-properties
(
match-beginning
2
)
(
match-end
2
)
(
list
'face
(
delq
nil
(
adjoin
'org-tag
(
let
((
prop
(
get-text-property
(
match-beginning
2
)
'face
)))
(
if
(
listp
prop
)
prop
(
list
prop
))))))
)
(
list
'face
(
delq
nil
(
let
((
prop
(
get-text-property
(
match-beginning
2
)
'face
)))
(
or
(
listp
prop
)
(
setq
prop
(
list
prop
)))
(
if
(
memq
'org-tag
prop
)
prop
(
cons
'org-tag
prop
))))))
(
setq
l
(
-
(
match-end
2
)
(
match-beginning
2
))
c
(
if
(
<
org-agenda-tags-column
0
)
(
-
(
abs
org-agenda-tags-column
)
l
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment