diff options
author | Ulrich Müller <ulm@gentoo.org> | 2014-06-07 10:53:15 +0000 |
---|---|---|
committer | Ulrich Müller <ulm@gentoo.org> | 2014-06-07 10:53:15 +0000 |
commit | 0c2c7e67a8583a6b4fa5f50a88dab97d2394c00b (patch) | |
tree | 94259e425523bd3edacc46f4e3166f7b8029fb2c /app-emacs/calfw/files | |
parent | Remove redundant NEED_EMACS assignment. Update EAPI to 5. Remove old. (diff) | |
download | gentoo-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.patch | 58 |
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)))) |