summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorUlrich Müller <ulm@gentoo.org>2014-06-07 10:53:15 +0000
committerUlrich Müller <ulm@gentoo.org>2014-06-07 10:53:15 +0000
commit0c2c7e67a8583a6b4fa5f50a88dab97d2394c00b (patch)
tree94259e425523bd3edacc46f4e3166f7b8029fb2c /app-emacs/calfw/files
parentRemove redundant NEED_EMACS assignment. Update EAPI to 5. Remove old. (diff)
downloadgentoo-2-0c2c7e67a8583a6b4fa5f50a88dab97d2394c00b.tar.gz
gentoo-2-0c2c7e67a8583a6b4fa5f50a88dab97d2394c00b.tar.bz2
gentoo-2-0c2c7e67a8583a6b4fa5f50a88dab97d2394c00b.zip
Remove redundant NEED_EMACS assignment. Update EAPI to 5. Remove old.
(Portage version: 2.2.10/cvs/Linux x86_64, signed Manifest commit with key 9433907D693FB5B8!)
Diffstat (limited to 'app-emacs/calfw/files')
-rw-r--r--app-emacs/calfw/files/calfw-1.1-calfwel.patch58
1 files changed, 0 insertions, 58 deletions
diff --git a/app-emacs/calfw/files/calfw-1.1-calfwel.patch b/app-emacs/calfw/files/calfw-1.1-calfwel.patch
deleted file mode 100644
index cc2658cd9850..000000000000
--- a/app-emacs/calfw/files/calfw-1.1-calfwel.patch
+++ /dev/null
@@ -1,58 +0,0 @@
-diff --git a/calfw.el b/calfw.el
-index 5a72627..2fa2f9e 100644
---- a/calfw.el
-+++ b/calfw.el
-@@ -984,13 +984,16 @@ calling functions `cfw:annotations-functions'."
- (t
- (loop for s in sources
- for f = (cfw:source-data s)
-- for cnt = (funcall f begin end)
-+ for cnts = (funcall f begin end)
- with annotations = nil
-- for prv = (cfw:contents-get-internal d annotations)
-- if prv
-- do (set-cdr prv (concat (cdr prv) "/" (cdr cnt)))
-- else
-- do (push (copy-sequence cnt) annotations)
-+ do
-+ (loop for c in cnts
-+ for (d . line) = c
-+ for prv = (cfw:contents-get-internal d annotations)
-+ if prv
-+ do (setcdr prv (concat (cdr prv) "/" line))
-+ else
-+ do (push (cons d line) annotations))
- finally return annotations))))
-
-
-@@ -2380,7 +2383,7 @@ DATE is initial focus date. If it is nil, today is selected initially."
- ((1 14 2011) (1 15 2011) "Stack")
- ((1 29 2011) (1 31 2011) "PERIOD W"))
- ))))
-- (asource
-+ (asource1
- (make-cfw:source
- :name "Moon"
- :data
-@@ -2390,10 +2393,20 @@ DATE is initial focus date. If it is nil, today is selected initially."
- ((1 20 2011) . "Full Moon")
- ((1 26 2011) . "Waning Moon")
- ))))
-+ (asource2
-+ (make-cfw:source
-+ :name "Moon"
-+ :data
-+ (lambda (b e)
-+ '(((1 5 2011) . "AN1")
-+ ((1 13 2011) . "AN2")
-+ ((1 20 2011) . "AN3")
-+ ((1 28 2011) . "AN4")
-+ ))))
- (cp (cfw:create-calendar-component-buffer
- :view 'month
- :contents-sources (list source1 source2)
-- :annotation-sources (list asource))))
-+ :annotation-sources (list asource1 asource2))))
- (cfw:cp-add-update-hook cp (lambda () (message "CFW: UPDATE HOOK")))
- (cfw:cp-add-click-hook cp (lambda () (message "CFW: CLICK HOOK %S" (cfw:cursor-to-nearest-date))))
- (cfw:cp-add-selection-change-hook cp (lambda () (message "CFW: SELECT %S" (cfw:cursor-to-nearest-date))))