GNU bug report logs - #16324
24.3.50; Crashing on OSX 10.6.8 (built --with-ns)

Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.

Package: emacs; Reported by: Keith David Bershatsky <esq@HIDDEN>; dated Thu, 2 Jan 2014 07:01:02 UTC; Maintainer for emacs is bug-gnu-emacs@HIDDEN.
Removed tag(s) moreinfo. Request was from Lars Ingebrigtsen <larsi@HIDDEN> to control <at> debbugs.gnu.org. Full text available.

Message received at 16324 <at> debbugs.gnu.org:


Received: (at 16324) by debbugs.gnu.org; 3 Jan 2014 17:57:56 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Fri Jan 03 12:57:56 2014
Received: from localhost ([127.0.0.1]:60285 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.80)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1Vz90M-0004na-Ja
	for submit <at> debbugs.gnu.org; Fri, 03 Jan 2014 12:57:56 -0500
Received: from cobb.liquidweb.com ([50.28.13.150]:42652)
 by debbugs.gnu.org with esmtp (Exim 4.80)
 (envelope-from <esq@HIDDEN>) id 1Vz90A-0004nE-IQ
 for 16324 <at> debbugs.gnu.org; Fri, 03 Jan 2014 12:57:44 -0500
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=lawlist.com;
 s=default; 
 h=Content-Type:MIME-Version:Subject:To:From:Message-ID:Date;
 bh=CtMJCZGFyXLY9DDcVLdDSvrKNy/sZqGQv2YcH9AoIgg=; 
 b=aV7qBd1GOYl2uQdrUjQiOUminqDwslEGimT7iT37SA/RJtbKFrRFZ9oN1lhjMPfcD3wqrsptwKv9R6uK6ahZ7poIkAMdtq/sffe2MykNpJupas9eEPw3SEPHOqif/TK3;
Received: from cpe-75-85-5-102.socal.res.rr.com ([75.85.5.102]:50203
 helo=MP.local) by cobb.liquidweb.com with esmtp (Exim 4.82)
 (envelope-from <esq@HIDDEN>)
 id 1Vz902-0006za-7Z; Fri, 03 Jan 2014 12:57:40 -0500
Date: Fri, 03 Jan 2014 09:57:34 -0800
Message-ID: <m24n5losmp.wl%esq@HIDDEN>
From: Keith David Bershatsky <esq@HIDDEN>
To: Stefan Monnier <monnier@HIDDEN>
Subject: Re: bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
User-Agent: / () / () APEL/10.8 Emacs/24.3.50 (x86_64-apple-darwin10.8.0)
 MULE/6.0 (HANACHIRUSATO)
MIME-Version: 1.0 (generated by   - "")
Content-Type: text/plain; charset=US-ASCII
X-AntiAbuse: This header was added to track abuse,
 please include it with any abuse report
X-AntiAbuse: Primary Hostname - cobb.liquidweb.com
X-AntiAbuse: Original Domain - debbugs.gnu.org
X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12]
X-AntiAbuse: Sender Address Domain - lawlist.com
X-Get-Message-Sender-Via: cobb.liquidweb.com: acl_c_relayhosts_text_entry:
 lawlist|lawlist.com
X-Debbugs-Envelope-To: 16324
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.15
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <http://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>

I added `(add-hook 'org-agenda-mode-hook (lambda () (jit-lock-debug-mode 1) . . .`, but did not see the `jit-lock` error during several attempts.  Below is the recent gdb debugging report and the output from the debug buffer.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Try jit-lock-debug-mode (along with debug-on-error) if you have a recent Emacs build.  That should give you a backtrace.

        Stefan

> binding depth exceeds max-specpdl-size")
> Error during redisplay: (jit-lock-function 553) signaled (error "Variable
> binding depth exceeds max-specpdl-size")
> Error during redisplay: (jit-lock-function 1082) signaled (error "Variable
> binding depth exceeds max-specpdl-size")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Last login: Fri Jan  3 09:35:15 on ttys000
MP:~ HOME$ cd /Users/HOME/Desktop/emacs-trunk-01-01-2014/src
MP:src HOME$ gdb /Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app/Contents/MacOS/Emacs
GNU gdb 6.3.50-20050815 (Apple version gdb-1515) (Sat Jan 15 08:33:48 UTC 2011)
Copyright 2004 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "x86_64-apple-darwin"...Reading symbols for shared libraries ........... done

DISPLAY = /tmp/launch-kmb01E/org.x:0
TERM = xterm-color
Breakpoint 1 at 0x1000a5170: file emacs.c, line 351.
Breakpoint 2 at 0x1000c3be4: file sysdep.c, line 850.
(gdb) run
Starting program: /Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app/Contents/MacOS/Emacs 
Reading symbols for shared libraries .++++++++++............................................................................... done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Emacs(1362,0x7fff71079cc0) malloc: *** error for object 0x102d06d68: incorrect checksum for freed object - object was probably modified after being freed.
*** set a breakpoint in malloc_error_break to debug

Program received signal SIGABRT, Aborted.
0x00007fff89abe0b6 in __kill ()
(gdb) bt
#0  0x00007fff89abe0b6 in __kill ()
#1  0x00007fff89b5e9f6 in abort ()
#2  0x00007fff89b4d62d in szone_error ()
#3  0x00007fff89a7794f in small_malloc_from_free_list ()
#4  0x00007fff89a741e1 in szone_malloc_should_clear ()
#5  0x00007fff89a7398a in malloc_zone_malloc ()
#6  0x00007fff89a71c88 in malloc ()
#7  0x0000000100155edb in unexec_malloc (size=13344) at unexmacosx.c:1399
#8  0x0000000100105018 in xrealloc (block=<value temporarily unavailable, due to optimizations>, size=13344) at alloc.c:715
#9  0x0000000100002d7c in adjust_glyph_matrix (w=0x1163cb600, matrix=0x103814960, x=0, y=0, dim=<value temporarily unavailable, due to optimizations>) at dispnew.c:491
#10 0x0000000100007173 in allocate_matrices_for_window_redisplay (w=0x1163cb600) at dispnew.c:1729
#11 0x00000001000071d5 in allocate_matrices_for_window_redisplay (w=0x103014420) at dispnew.c:1714
#12 0x000000010000783d in adjust_frame_glyphs_for_window_redisplay [inlined] () at /Users/HOME/Desktop/emacs-trunk-01-01-2014/src/dispnew.c:2032
#13 0x000000010000783d in adjust_frame_glyphs (f=0x116864c00) at dispnew.c:1749
#14 0x000000010005c0ab in Fsplit_window_internal (old=4668083757, pixel_size=2080, side=4362168890, normal_size=4297620607) at window.c:4370
#15 0x000000010012073a in Ffuncall (nargs=5, args=<value temporarily unavailable, due to optimizations>) at eval.c:2817
#16 0x0000000100157f7b in exec_byte_code (bytestr=5, vector=2080, maxdepth=7345150209964530002, args_template=4320145466, nargs=36, args=0x0) at bytecode.c:919
#17 0x000000010011fbea in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2182
#18 0x000000010011e8f7 in internal_catch (tag=4362242714, func=0x10011f5d0 <eval_sub>, arg=4297619686) at eval.c:1109
#19 0x00000001001595e2 in exec_byte_code (bytestr=5, vector=4296144336, maxdepth=4297619686, args_template=4320145466, nargs=141, args=0x0) at bytecode.c:1100
#20 0x000000010012028b in funcall_lambda (fun=4297619197, nargs=2, arg_vector=0x7fff5fbfc840) at eval.c:3040
#21 0x000000010012054d in Ffuncall (nargs=3, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#22 0x0000000100157f7b in exec_byte_code (bytestr=3, vector=2, maxdepth=7345150209964530002, args_template=4320145466, nargs=34, args=0x0) at bytecode.c:919
#23 0x000000010012028b in funcall_lambda (fun=4297620829, nargs=0, arg_vector=0x7fff5fbfca50) at eval.c:3040
#24 0x000000010012054d in Ffuncall (nargs=1, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#25 0x0000000100157f7b in exec_byte_code (bytestr=1, vector=0, maxdepth=7345150209964530002, args_template=4320145466, nargs=32, args=0x0) at bytecode.c:919
#26 0x000000010012028b in funcall_lambda (fun=4297634277, nargs=1, arg_vector=0x7fff5fbfcc48) at eval.c:3040
#27 0x000000010012054d in Ffuncall (nargs=2, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#28 0x000000010011fd42 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2148
#29 0x0000000100122f0d in internal_lisp_condition_case (var=4320145466, bodyform=4297634774, handlers=<value temporarily unavailable, due to optimizations>) at eval.c:1314
#30 0x0000000100159ddd in exec_byte_code (bytestr=4320145466, vector=4297634774, maxdepth=7345150209964530002, args_template=4320145466, nargs=143, args=0x0) at bytecode.c:1169
#31 0x000000010012028b in funcall_lambda (fun=4297634541, nargs=2, arg_vector=0x7fff5fbfcf20) at eval.c:3040
#32 0x0000000100121908 in apply_lambda (fun=4297634541, args=4362433978) at eval.c:2915
#33 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#34 0x000000010011fe74 in Fsetq (args=<value temporarily unavailable, due to optimizations>) at eval.c:536
#35 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#36 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#37 0x0000000100123347 in Flet (args=<value temporarily unavailable, due to optimizations>) at eval.c:967
#38 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#39 0x000000010012378b in Fand (args=<value temporarily unavailable, due to optimizations>) at eval.c:384
#40 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#41 0x00000001001237db in For (args=<value temporarily unavailable, due to optimizations>) at eval.c:360
#42 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#43 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#44 0x0000000100123347 in Flet (args=<value temporarily unavailable, due to optimizations>) at eval.c:967
#45 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#46 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#47 0x00000001001202e0 in funcall_lambda (fun=4343387286, nargs=2, arg_vector=0x7fff5fbfd700) at eval.c:3033
#48 0x0000000100121908 in apply_lambda (fun=4343387286, args=4342018214) at eval.c:2915
#49 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#50 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#51 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#52 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#53 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#54 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#55 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#56 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#57 0x00000001001202e0 in funcall_lambda (fun=4342480246, nargs=2, arg_vector=0x7fff5fbfdc00) at eval.c:3033
#58 0x0000000100121908 in apply_lambda (fun=4342480246, args=4363406682) at eval.c:2915
#59 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#60 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#61 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#62 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#63 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#64 0x00000001001202e0 in funcall_lambda (fun=4342349270, nargs=4, arg_vector=0x7fff5fbfdf40) at eval.c:3033
#65 0x0000000100121908 in apply_lambda (fun=4342349270, args=4363406682) at eval.c:2915
#66 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#67 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#68 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#69 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#70 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#71 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#72 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#73 0x0000000100112e67 in Fsave_current_buffer (args=4343206598) at editfns.c:954
#74 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#75 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#76 0x00000001001202e0 in funcall_lambda (fun=4343203318, nargs=0, arg_vector=0x7fff5fbfe490) at eval.c:3033
#77 0x0000000100121908 in apply_lambda (fun=4343203318, args=4320145466) at eval.c:2915
#78 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#79 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#80 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#81 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#82 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#83 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#84 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#85 0x00000001001202e0 in funcall_lambda (fun=4343016758, nargs=0, arg_vector=0x7fff5fbfe8b0) at eval.c:3033
#86 0x0000000100121908 in apply_lambda (fun=4343016758, args=4320145466) at eval.c:2915
#87 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#88 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#89 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#90 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#91 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#92 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#93 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#94 0x00000001001202e0 in funcall_lambda (fun=4343016758, nargs=0, arg_vector=0x7fff5fbfecd0) at eval.c:3033
#95 0x0000000100121908 in apply_lambda (fun=4343016758, args=4320145466) at eval.c:2915
#96 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#97 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#98 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#99 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#100 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#101 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#102 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#103 0x00000001001202e0 in funcall_lambda (fun=4343016758, nargs=0, arg_vector=0x7fff5fbff170) at eval.c:3033
#104 0x000000010012054d in Ffuncall (nargs=1, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#105 0x0000000100120de6 in apply1 (fn=4342380146, arg=<value temporarily unavailable, due to optimizations>) at eval.c:2572
#106 0x000000010011ca5f in Fcall_interactively (function=4342380146, record_flag=4320145466, keys=4345595109) at callint.c:378
#107 0x0000000100120751 in Ffuncall (nargs=4, args=<value temporarily unavailable, due to optimizations>) at eval.c:2813
#108 0x0000000100157f7b in exec_byte_code (bytestr=4, vector=4320145466, maxdepth=7345150209964530002, args_template=4100, nargs=35, args=0x7fff5fbff4f8) at bytecode.c:919
#109 0x000000010012054d in Ffuncall (nargs=2, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#110 0x000000010012097e in call1 (fn=<value temporarily unavailable, due to optimizations>, arg1=<value temporarily unavailable, due to optimizations>) at eval.c:2605
#111 0x00000001000ba1c7 in command_loop_1 () at keyboard.c:1552
#112 0x000000010011ea43 in internal_condition_case (bfun=0x1000b9c70 <command_loop_1>, handlers=4320211946, hfun=0x1000b1600 <cmd_error>) at eval.c:1345
#113 0x00000001000affd7 in command_loop_2 (ignore=<value temporarily unavailable, due to optimizations>) at keyboard.c:1170
#114 0x000000010011e8f7 in internal_catch (tag=4320208138, func=0x1000affa0 <command_loop_2>, arg=4320145466) at eval.c:1109
#115 0x00000001000af45c in recursive_edit_1 () at keyboard.c:1149
#116 0x00000001000b1897 in Frecursive_edit () at keyboard.c:841
#117 0x00000001000a79b3 in main (argc=1, argv=0x7fff5fbff958) at emacs.c:1637
Unsafe to run code: malloc zone lock is held for some zone..
Canceling call as the malloc lock is held so it isn't safe to call the runtime.
Issue the command:
    set objc-non-blocking-mode off 
to override this check if you are sure your call doesn't use the malloc libraries or the ObjC runtime.
(gdb) 


Debugger entered--Lisp error: (error "Variable binding depth exceeds max-specpdl-size")
  (let ((directory-sep-char 47) (fn (assoc operation tramp-completion-file-name-handler-alist))) (if (and fn tramp-mode (or (eq tramp-syntax (quote sep)) (featurep (quote tramp)) (and (boundp (quote partial-completion-mode)) (symbol-value (quote partial-completion-mode))) (featurep (quote ido)) (featurep (quote icicles)))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (apply (cdr fn) args)) (set-match-data save-match-data-internal (quote evaporate)))) (tramp-completion-run-real-handler operation args)))
  tramp-completion-file-name-handler(file-truename "/Users")
  file-truename("/Users" (90) (nil))
  file-truename("/Users/HOME" (90) (nil))
  file-truename("/Users/HOME/.0.data" (90) (nil))
  file-truename("/Users/HOME/.0.data/.0.emacs" (90) (nil))
  file-truename("/Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app" (90) (nil))
  file-truename("/Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app/Contents" (90) (nil))
  file-truename("/Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app/Contents/Resources" (90) (nil))
  file-truename("/Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app/Contents/Resources/lisp" (90) (nil))
  file-truename("/Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app/Contents/Resources/lisp/emacs-lisp" (90) (nil))
  file-truename("/Users/HOME/.0.data/.0.emacs/Emacs_01_01_2014.app/Contents/Resources/lisp/emacs-lisp/warnings.elc")
  (display-warning :error (format "Bad holiday list item: %s\nError: %s\n" p err))
  (condition-case err (eval p) (error (display-warning :error (format "Bad holiday list item: %s\nError: %s\n" p err)) nil))
  (if calendar-debug-sexp (let ((debug-on-error t)) (eval p)) (condition-case err (eval p) (error (display-warning :error (format "Bad holiday list item: %s\nError: %s\n" p err)) nil)))
  (setq h (if calendar-debug-sexp (let ((debug-on-error t)) (eval p)) (condition-case err (eval p) (error (display-warning :error (format "Bad holiday list item: %s\nError: %s\n" p err)) nil))))
  (if (setq h (if calendar-debug-sexp (let ((debug-on-error t)) (eval p)) (condition-case err (eval p) (error (display-warning :error (format "Bad holiday list item: %s\nError: %s\n" p err)) nil)))) (setq res (append h res)))
  (while --dolist-tail-- (setq p (car --dolist-tail--)) (if (setq h (if calendar-debug-sexp (let ((debug-on-error t)) (eval p)) (condition-case err (eval p) (error (display-warning :error (format "Bad holiday list item: %s\nError: %s\n" p err)) nil)))) (setq res (append h res))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- court-holidays) p) (while --dolist-tail-- (setq p (car --dolist-tail--)) (if (setq h (if calendar-debug-sexp (let ((debug-on-error t)) (eval p)) (condition-case err (eval p) (error (display-warning :error ...) nil)))) (setq res (append h res))) (setq --dolist-tail-- (cdr --dolist-tail--))) (setq p nil) res)
  (sort (let ((--dolist-tail-- court-holidays) p) (while --dolist-tail-- (setq p (car --dolist-tail--)) (if (setq h (if calendar-debug-sexp (let (...) (eval p)) (condition-case err (eval p) (error ... nil)))) (setq res (append h res))) (setq --dolist-tail-- (cdr --dolist-tail--))) (setq p nil) res) (quote calendar-date-compare))
  (let (res h err) (sort (let ((--dolist-tail-- court-holidays) p) (while --dolist-tail-- (setq p (car --dolist-tail--)) (if (setq h (if calendar-debug-sexp (let ... ...) (condition-case err ... ...))) (setq res (append h res))) (setq --dolist-tail-- (cdr --dolist-tail--))) (setq p nil) res) (quote calendar-date-compare)))
  (let ((--dolist-tail-- (let (res h err) (sort (let ((--dolist-tail-- court-holidays) p) (while --dolist-tail-- (setq p ...) (if ... ...) (setq --dolist-tail-- ...)) (setq p nil) res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-court-holiday-face nil court-holiday nil nil nil) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (let ((--dolist-tail-- (let (res h err) (sort (let (... p) (while --dolist-tail-- ... ... ...) (setq p nil) res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-court-holiday-face nil court-holiday nil nil nil) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- (let (res h err) (sort (let (... p) (while --dolist-tail-- ... ... ...) (setq p nil) res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-court-appearance-face nil nil court-appearance nil nil) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- (let (res h err) (sort (let (... p) (while --dolist-tail-- ... ... ...) (setq p nil) res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-appointment-face nil nil nil appointment nil) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- (let (res h err) (sort (let (... p) (while --dolist-tail-- ... ... ...) (setq p nil) res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-birthday-face nil nil nil nil birthday) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (let* (narrowed (court-holiday t) (appointment t) (birthday t) birthdays appointments (court-appearance t) court-appearances element todo-state deadline scheduled day month year today days-scheduled title) (if (not (get-file-buffer lawlist-todo-file)) (progn (find-file-noselect lawlist-todo-file) (if (not (or (and (narrow-p) (> ... 0)) (get-buffer-window "CAPTURE-.todo" (selected-frame)) (get-buffer-window "*Org Agenda*" (selected-frame)))) (save-current-buffer (set-buffer (get-file-buffer lawlist-todo-file)) (setq buffer-read-only t))))) (save-current-buffer (set-buffer (get-file-buffer lawlist-todo-file)) (save-excursion (if (narrow-p) (progn (setq narrowed t) (widen))) (goto-char (point-max)) (while (re-search-backward "^\\*\\* \\(Reference\\|Delegated\\|Postponed\\|Waiting\\)" nil t) (setq element (org-element-at-point)) (setq todo-state (org-element-property :todo-keyword element)) (setq title (org-element-property :title element)) (setq deadline (condition-case nil (progn (org-element-property :deadline element)) (error nil))) (setq scheduled (condition-case nil (progn (org-element-property :scheduled element)) (error nil))) (setq day (condition-case nil (progn (org-element-property :day-start deadline)) (error nil))) (setq month (condition-case nil (progn (org-element-property :month-start deadline)) (error nil))) (setq year (condition-case nil (progn (org-element-property :year-start deadline)) (error nil))) (if (and scheduled deadline (string= todo-state "Reference")) (progn (setq court-appearances (append court-appearances ...)))) (if (and scheduled deadline (string= todo-state "Delegated")) (progn (setq appointments (append appointments ...)))) (if (and deadline (string= todo-state "Waiting")) (progn (setq birthdays (append birthdays ...)))))) (if narrowed (org-narrow-to-subtree))) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (let ((--dolist-tail-- (let (res h err) (sort (let ... ... ... res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-court-holiday-face nil court-holiday nil nil nil) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- (let (res h err) (sort (let ... ... ... res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-court-appearance-face nil nil court-appearance nil nil) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- (let (res h err) (sort (let ... ... ... res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-appointment-face nil nil nil appointment nil) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- (let (res h err) (sort (let ... ... ... res) (quote calendar-date-compare)))) holiday) (while --dolist-tail-- (setq holiday (car --dolist-tail--)) (lawlist-calendar-mark-visible-date (car holiday) lawlist-birthday-face nil nil nil nil birthday) (setq --dolist-tail-- (cdr --dolist-tail--))))))
  lawlist-mark-calendar()
  (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq buffer-read-only nil) (calendar-generate month year) (calendar-update-mode-line) (lawlist-mark-calendar) (let* ((today (calendar-current-date))) (cond ((calendar-date-is-visible-p today) (lawlist-calendar-cursor-to-visible-date today)) (t (lawlist-calendar-cursor-to-visible-date (list displayed-month 1 displayed-year))))))
  (cond ((and (and month year) (get-buffer calendar-buffer)) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq buffer-read-only nil) (calendar-generate month year) (calendar-update-mode-line) (lawlist-mark-calendar) (let* ((today (calendar-current-date))) (cond ((calendar-date-is-visible-p today) (lawlist-calendar-cursor-to-visible-date today)) (t (lawlist-calendar-cursor-to-visible-date (list displayed-month 1 displayed-year)))))) (if (not (get-buffer-window calendar-buffer (selected-frame))) (lawlist-display-buffer-below-selected (get-buffer calendar-buffer) (quote ((window-height . 10)))))) ((and (not (and month year)) (get-buffer calendar-buffer)) (let* ((today (calendar-current-date)) (month (calendar-extract-month today)) (year (calendar-extract-year today))) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq buffer-read-only nil) (calendar-generate month year) (calendar-update-mode-line) (lawlist-mark-calendar) (cond ((calendar-date-is-visible-p today) (lawlist-calendar-cursor-to-visible-date today)) (t (lawlist-calendar-cursor-to-visible-date (list displayed-month 1 displayed-year)))))) (if (not (get-buffer-window calendar-buffer (selected-frame))) (lawlist-display-buffer-below-selected (get-buffer calendar-buffer) (quote ((window-height . 10)))))) (t (let* ((inhibit-read-only t) (today (calendar-current-date)) (month (if month month (calendar-extract-month today))) (year (if year year (calendar-extract-year today)))) (save-current-buffer (set-buffer (get-buffer-create calendar-buffer)) (calendar-mode) (setq buffer-read-only nil) (calendar-generate month year) (calendar-update-mode-line) (lawlist-mark-calendar) (cond ((calendar-date-is-visible-p today) (lawlist-calendar-cursor-to-visible-date today)) (t (lawlist-calendar-cursor-to-visible-date (list displayed-month 1 displayed-year)))) (lawlist-display-buffer-below-selected (get-buffer calendar-buffer) (quote ((window-height . 10)))) (set-window-scroll-bars (get-buffer-window calendar-buffer (selected-frame)) 0 nil)))))
  (let* ((month (if month month)) (year (if year year))) (cond ((and (and month year) (get-buffer calendar-buffer)) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq buffer-read-only nil) (calendar-generate month year) (calendar-update-mode-line) (lawlist-mark-calendar) (let* ((today (calendar-current-date))) (cond ((calendar-date-is-visible-p today) (lawlist-calendar-cursor-to-visible-date today)) (t (lawlist-calendar-cursor-to-visible-date ...))))) (if (not (get-buffer-window calendar-buffer (selected-frame))) (lawlist-display-buffer-below-selected (get-buffer calendar-buffer) (quote ((window-height . 10)))))) ((and (not (and month year)) (get-buffer calendar-buffer)) (let* ((today (calendar-current-date)) (month (calendar-extract-month today)) (year (calendar-extract-year today))) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq buffer-read-only nil) (calendar-generate month year) (calendar-update-mode-line) (lawlist-mark-calendar) (cond ((calendar-date-is-visible-p today) (lawlist-calendar-cursor-to-visible-date today)) (t (lawlist-calendar-cursor-to-visible-date ...))))) (if (not (get-buffer-window calendar-buffer (selected-frame))) (lawlist-display-buffer-below-selected (get-buffer calendar-buffer) (quote ((window-height . 10)))))) (t (let* ((inhibit-read-only t) (today (calendar-current-date)) (month (if month month (calendar-extract-month today))) (year (if year year (calendar-extract-year today)))) (save-current-buffer (set-buffer (get-buffer-create calendar-buffer)) (calendar-mode) (setq buffer-read-only nil) (calendar-generate month year) (calendar-update-mode-line) (lawlist-mark-calendar) (cond ((calendar-date-is-visible-p today) (lawlist-calendar-cursor-to-visible-date today)) (t (lawlist-calendar-cursor-to-visible-date ...))) (lawlist-display-buffer-below-selected (get-buffer calendar-buffer) (quote (...))) (set-window-scroll-bars (get-buffer-window calendar-buffer (selected-frame)) 0 nil))))))
  lawlist-calendar(5 2015)
  (let* ((span (org-agenda-ndays-to-span (or span org-agenda-ndays org-agenda-span))) (ndays (org-agenda-span-to-ndays span start-day)) (thefiles (org-agenda-files nil (quote ifmode))) (files thefiles) (day-numbers (list start-day)) (inhibit-redisplay (not debug-on-error)) s rtnall file date d start-pos end-pos) (let ((--dotimes-limit-- (1- ndays)) (n 0)) (while (< n --dotimes-limit--) (setq day-numbers (cons (1+ (car day-numbers)) day-numbers)) (setq n (1+ n)))) (setq day-numbers (nreverse day-numbers)) (org-set-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote org-agenda-current-span) (org-agenda-ndays-to-span span)) (setq s (point)) (insert (format "%s" (decode-name-of-month (format "%s" month))) (if day (concat " " (format "%s" day) ", ") " ") (format "%s" year) "\n\n") (while (setq d (car-safe (prog1 day-numbers (setq day-numbers (cdr day-numbers))))) (setq date (calendar-gregorian-from-absolute d) s (point)) (if (and (not start-pos) (= d start-day)) (setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos (point)))) (setq files thefiles rtnall nil) (while (setq file (car-safe (prog1 files (setq files (cdr files))))) (catch (quote nextfile) (setq rtnall (apply (quote lawlist-agenda-get-day-entries) file date (quote (:deadline)))))) (lawlist-add-buffer (get-file-buffer lawlist-todo-file) (selected-frame)) (save-current-buffer (set-buffer (get-file-buffer lawlist-todo-file)) (hs-show-all) (show-all) (setq buffer-read-only t)) (if rtnall (progn (insert (funcall lawlist-agenda-format-date date) "\n") (insert (org-agenda-finalize-entries rtnall) "\n")))) (goto-char (point-min)) (font-lock-mode 1) (setq buffer-read-only t) (lawlist-display-buffer (get-buffer org-agenda-buffer-name)) (sit-for 0.01) (lawlist-calendar month year))
  lawlist-agenda("2015-5-01" month 5 2015)
  (let* (span start-day (old-date (calendar-cursor-to-date)) (today (calendar-current-date)) (month displayed-month) (year displayed-year)) (setq buffer-read-only nil) (let ((nmonths (or nil 12)) macro-y) (if (< year 0) (setq year (1+ year))) (setq macro-y (+ (* year nmonths) month -1 arg) month (1+ (mod macro-y nmonths)) year (/ macro-y nmonths)) (and (< macro-y 0) (> month 1) (setq year (1- year))) (if (< year 1) (setq year (1- year)))) (calendar-generate month year) (calendar-update-mode-line) (lawlist-calendar-cursor-to-visible-date (cond ((calendar-date-is-visible-p old-date) old-date) ((calendar-date-is-visible-p today) today) (t (list month 1 year)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year))
  (if (zerop arg) nil (let* (span start-day (old-date (calendar-cursor-to-date)) (today (calendar-current-date)) (month displayed-month) (year displayed-year)) (setq buffer-read-only nil) (let ((nmonths (or nil 12)) macro-y) (if (< year 0) (setq year (1+ year))) (setq macro-y (+ (* year nmonths) month -1 arg) month (1+ (mod macro-y nmonths)) year (/ macro-y nmonths)) (and (< macro-y 0) (> month 1) (setq year (1- year))) (if (< year 1) (setq year (1- year)))) (calendar-generate month year) (calendar-update-mode-line) (lawlist-calendar-cursor-to-visible-date (cond ((calendar-date-is-visible-p old-date) old-date) ((calendar-date-is-visible-p today) today) (t (list month 1 year)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year)))
  (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (if arg nil (setq arg 1)) (calendar-cursor-to-nearest-date) (if (zerop arg) nil (let* (span start-day (old-date (calendar-cursor-to-date)) (today (calendar-current-date)) (month displayed-month) (year displayed-year)) (setq buffer-read-only nil) (let ((nmonths (or nil 12)) macro-y) (if (< year 0) (setq year (1+ year))) (setq macro-y (+ (* year nmonths) month -1 arg) month (1+ (mod macro-y nmonths)) year (/ macro-y nmonths)) (and (< macro-y 0) (> month 1) (setq year (1- year))) (if (< year 1) (setq year (1- year)))) (calendar-generate month year) (calendar-update-mode-line) (lawlist-calendar-cursor-to-visible-date (cond ((calendar-date-is-visible-p old-date) old-date) ((calendar-date-is-visible-p today) today) (t (list month 1 year)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year))))
  lawlist-calendar-scroll-left()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time (current-time)))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil (format-time-string "%B %Y" ...)) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done.")))
  (let* ((span (quote month)) start-day year (month (let ((--cl-var-- (read-event))) (cond ((memql --cl-var-- (quote ...)) 1) ((memql --cl-var-- (quote ...)) 2) ((memql --cl-var-- (quote ...)) 3) ((memql --cl-var-- (quote ...)) 4) ((memql --cl-var-- (quote ...)) 5) ((memql --cl-var-- (quote ...)) 6) ((memql --cl-var-- (quote ...)) 7) ((memql --cl-var-- (quote ...)) 8) ((memql --cl-var-- (quote ...)) 9) ((memql --cl-var-- (quote ...)) 10) ((memql --cl-var-- (quote ...)) 11) ((memql --cl-var-- (quote ...)) 12) ((memql --cl-var-- (quote ...)) 500) ((memql --cl-var-- (quote ...)) 501) ((memql --cl-var-- (quote ...)) 502) ((memql --cl-var-- (quote ...)) 503) ((memql --cl-var-- (quote ...)) 504) ((memql --cl-var-- (quote ...)) 505) ((memql --cl-var-- (quote ...)) 506) ((memql --cl-var-- (quote ...)) 507) ((eql --cl-var-- (quote 8388704)) 508) ((eql --cl-var-- (quote 8388734)) 509) ((eql --cl-var-- (quote 8388719)) 510) ((memql --cl-var-- (quote ...)) 511) ((memql --cl-var-- (quote ...)) 512) ((eql --cl-var-- (quote 8388721)) 513) ((eql --cl-var-- (quote 8388727)) 514) ((memql --cl-var-- (quote ...)) 515) ((memql --cl-var-- (quote ...)) 516) ((eql --cl-var-- (quote 8388715)) 517) ((memql --cl-var-- (quote ...)) 518) ((memql --cl-var-- (quote ...)) 519) ((memql --cl-var-- (quote ...)) 520) ((memql --cl-var-- (quote ...)) 521) ((eql --cl-var-- (quote 109)) 522) ((eql --cl-var-- (quote 77)) 523) ((eql --cl-var-- (quote 46)) 1000) ((eql --cl-var-- (quote 119)) 1001) ((eql --cl-var-- (quote 103)) 1002) ((eql --cl-var-- (quote 116)) 1003) ((eql --cl-var-- (quote 121)) 1004) ((eql --cl-var-- (quote 89)) 1005))))) (cond ((and month (>= month 0) (<= month 12)) (cond ((get-buffer calendar-buffer) (save-current-buffer (set-buffer (get-buffer calendar-buffer)) (setq year displayed-year))) (t (setq year (nth 5 (decode-time ...))))) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo)) ((eq month 1000) (if (get-file-buffer lawlist-todo-file) (progn (lawlist-display-buffer (get-file-buffer lawlist-todo-file)) (org-cycle-hide-drawers (quote all)) (hs-hide-all)) (lawlist-find-file lawlist-todo-file) (lawlist-reorganize))) ((eq month 1001) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (org-agenda nil "2")) ((eq month 1002) (let* (span start-day (mon+yr (split-string (read-string "Month and year: " nil nil ...) nil (quote TRIM))) (month (car mon+yr)) (year (cadr mon+yr)) (m2 (condition-case nil (format "%d" month) (error nil)))) (list (or m2 month) year) (setq year (read (format "%s" year))) (setq month (read (format "%s" (encode-name-of-month month)))) (setq span (quote month)) (setq start-day (concat (format "%s" year) "-" (format "%s" month) "-" "01")) (lawlist-agenda start-day span month year) (abo-abo))) ((eq month 1003) (tag)) ((eq month 500) (previous-line)) ((eq month 501) (next-line)) ((eq month 502) (left-char)) ((eq month 503) (right-char)) ((eq month 506) (tabbar-forward)) ((eq month 507) (tabbar-backward)) ((eq month 508) (cycle-forward-frames-groups)) ((eq month 509) (cycle-backward-frames-groups)) ((eq month 510) (lawlist-custom-open-file)) ((eq month 512) (abo-abo)) ((eq month 513) (save-buffers-kill-emacs)) ((eq month 514) (lawlist-kill-buffer)) ((eq month 515) (delete-window)) ((eq month 516) (delete-other-windows)) ((eq month 517) (lawlist-capture-one)) ((eq month 518) (lawlist-forward-window)) ((eq month 519) (tabbar-forward-group)) ((eq month 520) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 521) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 522) (lawlist-calendar-scroll-right) (abo-abo)) ((eq month 523) (lawlist-calendar-scroll-left) (abo-abo)) ((eq month 1004) (lawlist-calendar-backward-year) (abo-abo)) ((eq month 1005) (lawlist-calendar-forward-year) (abo-abo)) (t (message "Done."))))
  abo-abo()
  call-interactively(abo-abo nil nil)
  command-execute(abo-abo)




Information forwarded to bug-gnu-emacs@HIDDEN:
bug#16324; Package emacs,ns. Full text available.

Message received at 16324 <at> debbugs.gnu.org:


Received: (at 16324) by debbugs.gnu.org; 3 Jan 2014 15:07:27 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Fri Jan 03 10:07:27 2014
Received: from localhost ([127.0.0.1]:60000 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.80)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1Vz6LO-0007KL-Nx
	for submit <at> debbugs.gnu.org; Fri, 03 Jan 2014 10:07:27 -0500
Received: from ironport2-out.teksavvy.com ([206.248.154.181]:6389)
 by debbugs.gnu.org with esmtp (Exim 4.80)
 (envelope-from <monnier@HIDDEN>) id 1Vz6LM-0007KB-9U
 for 16324 <at> debbugs.gnu.org; Fri, 03 Jan 2014 10:07:24 -0500
X-IronPort-Anti-Spam-Filtered: true
X-IronPort-Anti-Spam-Result: Av8EABK/CFFsr+l6/2dsb2JhbABEuzWDWRdzgh4BAQQBViMFCws0EhQYDSSIHgbBLZEKA4hhnBmBXoMV
X-IPAS-Result: Av8EABK/CFFsr+l6/2dsb2JhbABEuzWDWRdzgh4BAQQBViMFCws0EhQYDSSIHgbBLZEKA4hhnBmBXoMV
X-IronPort-AV: E=Sophos;i="4.84,565,1355115600"; d="scan'208";a="43854207"
Received: from 108-175-233-122.dsl.teksavvy.com (HELO pastel.home)
 ([108.175.233.122])
 by ironport2-out.teksavvy.com with ESMTP/TLS/ADH-AES256-SHA;
 03 Jan 2014 10:07:23 -0500
Received: by pastel.home (Postfix, from userid 20848)
 id 4A93860136; Fri,  3 Jan 2014 10:07:23 -0500 (EST)
From: Stefan Monnier <monnier@HIDDEN>
To: Keith David Bershatsky <esq@HIDDEN>
Subject: Re: bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
Message-ID: <jwv4n5lumtd.fsf-monnier+emacsbugs@HIDDEN>
References: <m2ha9m3m2w.wl%esq@HIDDEN> <m2fvp5k3yk.wl%esq@HIDDEN>
Date: Fri, 03 Jan 2014 10:07:23 -0500
In-Reply-To: <m2fvp5k3yk.wl%esq@HIDDEN> (Keith David Bershatsky's message
 of "Thu, 02 Jan 2014 21:51:47 -0800")
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain
X-Spam-Score: 0.3 (/)
X-Debbugs-Envelope-To: 16324
Cc: "16324 <at> debbugs.gnu.org" <16324 <at> debbugs.gnu.org>,
 Jan =?windows-1252?Q?Dj=E4rv?= <jan.h.d@HIDDEN>
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.15
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <http://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: 0.3 (/)

> Error during redisplay: (jit-lock-function 1) signaled (error "Variable
> binding depth exceeds max-specpdl-size")
> Error during redisplay: (jit-lock-function 553) signaled (error "Variable
> binding depth exceeds max-specpdl-size")
> Error during redisplay: (jit-lock-function 1082) signaled (error "Variable
> binding depth exceeds max-specpdl-size")

Try jit-lock-debug-mode (along with debug-on-error) if you have a recent
Emacs build.  That should give you a backtrace.


        Stefan




Information forwarded to bug-gnu-emacs@HIDDEN:
bug#16324; Package emacs,ns. Full text available.

Message received at 16324 <at> debbugs.gnu.org:


Received: (at 16324) by debbugs.gnu.org; 3 Jan 2014 05:51:53 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Fri Jan 03 00:51:53 2014
Received: from localhost ([127.0.0.1]:59063 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.80)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1Vyxfk-00077i-NA
	for submit <at> debbugs.gnu.org; Fri, 03 Jan 2014 00:51:52 -0500
Received: from cobb.liquidweb.com ([50.28.13.150]:39933)
 by debbugs.gnu.org with esmtp (Exim 4.80)
 (envelope-from <esq@HIDDEN>) id 1Vyxfi-00077Y-4y
 for 16324 <at> debbugs.gnu.org; Fri, 03 Jan 2014 00:51:50 -0500
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=lawlist.com;
 s=default; 
 h=Content-Type:MIME-Version:Subject:Cc:To:From:Message-ID:Date;
 bh=NfUAA6e7qEsFhNfulnePtcUxHBOeVNUAHwjFB1BcuWQ=; 
 b=XmeU2rd/jUswHcfIVZaQNdDwrvA1bfzq/jc1oiPJt2klhseFKQPD3DvxUUu2jmK1+G4uMl1NlmvWBngPS4HRp2KN6eExBMwIu6S5UUNV2NxfWoaZppoeP/XVK39NJ74L;
Received: from cpe-75-85-5-102.socal.res.rr.com ([75.85.5.102]:56988
 helo=MP.local) by cobb.liquidweb.com with esmtp (Exim 4.82)
 (envelope-from <esq@HIDDEN>)
 id 1Vyxff-0000K6-Av; Fri, 03 Jan 2014 00:51:47 -0500
Date: Thu, 02 Jan 2014 21:51:47 -0800
Message-ID: <m2fvp5k3yk.wl%esq@HIDDEN>
From: Keith David Bershatsky <esq@HIDDEN>
To: Jan =?UTF-8?B?RGrDpHJ2?= <jan.h.d@HIDDEN>
Subject: Re: bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
User-Agent: / () / () APEL/10.8 Emacs/24.3.50 (x86_64-apple-darwin10.8.0)
 MULE/6.0 (HANACHIRUSATO)
MIME-Version: 1.0 (generated by   - "")
Content-Type: text/plain; charset=US-ASCII
X-AntiAbuse: This header was added to track abuse,
 please include it with any abuse report
X-AntiAbuse: Primary Hostname - cobb.liquidweb.com
X-AntiAbuse: Original Domain - debbugs.gnu.org
X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12]
X-AntiAbuse: Sender Address Domain - lawlist.com
X-Get-Message-Sender-Via: cobb.liquidweb.com: acl_c_relayhosts_text_entry:
 lawlist|lawlist.com
X-Spam-Score: 0.0 (/)
X-Debbugs-Envelope-To: 16324
Cc: "16324 <at> debbugs.gnu.org" <16324 <at> debbugs.gnu.org>
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.15
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <http://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: 0.0 (/)

I re-wrote part of my calendar function today thinking that it was maybe to blame, but I'm still receiving a few crashes.  Here are some of the messages I'm seeing right before the crash -- the font disappears in the *Org Agenda* buffer when the message appears each time I try to change months:

Error during redisplay: (jit-lock-function 1) signaled (error "Variable binding depth exceeds max-specpdl-size")
Error during redisplay: (jit-lock-function 553) signaled (error "Variable binding depth exceeds max-specpdl-size")
Error during redisplay: (jit-lock-function 1082) signaled (error "Variable binding depth exceeds max-specpdl-size")

I have overlays in the calendar buffer, and font lock in the *Org Agenda* buffer above it.  The error or crash happens when I move forward or backward between months -- each time I switch months, a new *Org Agenda* and new *Calendar* buffer appear -- the code searches the org-todo-files and finds matches with deadlines or scheduled, and then places an overlay on the matching visible date using a holiday-sexp from holidays.el.

Keith




Information forwarded to bug-gnu-emacs@HIDDEN:
bug#16324; Package emacs,ns. Full text available.

Message received at 16324 <at> debbugs.gnu.org:


Received: (at 16324) by debbugs.gnu.org; 3 Jan 2014 00:10:55 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Thu Jan 02 19:10:55 2014
Received: from localhost ([127.0.0.1]:58780 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.80)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1VysLl-0005mW-RV
	for submit <at> debbugs.gnu.org; Thu, 02 Jan 2014 19:10:55 -0500
Received: from cobb.liquidweb.com ([50.28.13.150]:52964)
 by debbugs.gnu.org with esmtp (Exim 4.80)
 (envelope-from <esq@HIDDEN>) id 1VysLi-0005mK-As
 for 16324 <at> debbugs.gnu.org; Thu, 02 Jan 2014 19:10:51 -0500
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=lawlist.com;
 s=default; 
 h=Content-Type:MIME-Version:Subject:Cc:To:From:Message-ID:Date;
 bh=nQ89OagqbLQdwfNjOfsYQnxEioU8hTv6RH5FY5VmQqk=; 
 b=dy6l4vwkyLpY6qtxx44XV8Val1FzFlKRYaKcZQnVebPzJHmvKnj/c+dYuuJcBjl7d0H5TfC061lm2eMbk9punv2osSt2ii/7Ladr6CaB5LQLwCH8Mzhkb2ciFFSXfh3n;
Received: from cpe-75-85-5-102.socal.res.rr.com ([75.85.5.102]:52722
 helo=MP.local) by cobb.liquidweb.com with esmtp (Exim 4.82)
 (envelope-from <esq@HIDDEN>)
 id 1VysLg-0002fA-IC; Thu, 02 Jan 2014 19:10:48 -0500
Date: Thu, 02 Jan 2014 16:10:48 -0800
Message-ID: <m24n5lvsaf.wl%esq@HIDDEN>
From: Keith David Bershatsky <esq@HIDDEN>
To: Jan =?UTF-8?B?RGrDpHJ2?= <jan.h.d@HIDDEN>
Subject: Re: bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
User-Agent: / () / () APEL/10.8 Emacs/24.3.50 (x86_64-apple-darwin10.8.0)
 MULE/6.0 (HANACHIRUSATO)
MIME-Version: 1.0 (generated by   - "")
Content-Type: text/plain; charset=US-ASCII
X-AntiAbuse: This header was added to track abuse,
 please include it with any abuse report
X-AntiAbuse: Primary Hostname - cobb.liquidweb.com
X-AntiAbuse: Original Domain - debbugs.gnu.org
X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12]
X-AntiAbuse: Sender Address Domain - lawlist.com
X-Get-Message-Sender-Via: cobb.liquidweb.com: acl_c_relayhosts_text_entry:
 lawlist|lawlist.com
X-Spam-Score: 0.0 (/)
X-Debbugs-Envelope-To: 16324
Cc: "16324 <at> debbugs.gnu.org" <16324 <at> debbugs.gnu.org>
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.15
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <http://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: 0.0 (/)

I think this is probably what you were looking for.  Today is my first day learning how to use gdb:

Last login: Thu Jan  2 16:01:10 on ttys001
MP:~ HOME$ cd /Users/HOME/Desktop/emacs-trunk-01-01-2014/src/
MP:src HOME$ gdb /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs
GNU gdb 6.3.50-20050815 (Apple version gdb-1515) (Sat Jan 15 08:33:48 UTC 2011)
Copyright 2004 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "x86_64-apple-darwin"...Reading symbols for shared libraries ........... done

DISPLAY = /tmp/launch-N6Y4z5/org.x:0
TERM = xterm-color
Breakpoint 1 at 0x1000a5170: file emacs.c, line 351.
Breakpoint 2 at 0x1000c3be4: file sysdep.c, line 850.
(gdb) run
Starting program: /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs 
Reading symbols for shared libraries .++++++++++............................................................................... done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
Emacs(1148,0x7fff71079cc0) malloc: *** error for object 0x116443608: incorrect checksum for freed object - object was probably modified after being freed.
*** set a breakpoint in malloc_error_break to debug

Program received signal SIGABRT, Aborted.
0x00007fff89abe0b6 in __kill ()
(gdb) bt
#0  0x00007fff89abe0b6 in __kill ()
#1  0x00007fff89b5e9f6 in abort ()
#2  0x00007fff89b4d62d in szone_error ()
#3  0x00007fff89a7a66f in small_free_list_remove_ptr ()
#4  0x00007fff89a770db in szone_free_definite_size ()
#5  0x0000000100102a91 in lisp_free (block=0x116230400) at alloc.c:931
#6  0x00000001001074d5 in Fgarbage_collect () at alloc.c:6495
#7  0x0000000100158519 in exec_byte_code (bytestr=1148, vector=266896620757450753, maxdepth=0, args_template=4320145466, nargs=131, args=0x0) at lisp.h:4514
#8  0x000000010012028b in funcall_lambda (fun=4364230573, nargs=1, arg_vector=0x7fff5fbfcfa8) at eval.c:3040
#9  0x000000010012054d in Ffuncall (nargs=2, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#10 0x0000000100157f7b in exec_byte_code (bytestr=2, vector=1, maxdepth=-1149410096387949562, args_template=4320145466, nargs=33, args=0x0) at bytecode.c:919
#11 0x000000010012028b in funcall_lambda (fun=4364929437, nargs=1, arg_vector=0x7fff5fbfd1a0) at eval.c:3040
#12 0x000000010012054d in Ffuncall (nargs=2, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#13 0x0000000100157f7b in exec_byte_code (bytestr=2, vector=1, maxdepth=-1149410096387949562, args_template=4320145466, nargs=33, args=0x0) at bytecode.c:919
#14 0x000000010012028b in funcall_lambda (fun=4332012773, nargs=6, arg_vector=0x7fff5fbfd320) at eval.c:3040
#15 0x0000000100121908 in apply_lambda (fun=4332012773, args=4362432026) at eval.c:2915
#16 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#17 0x000000010011fe74 in Fsetq (args=<value temporarily unavailable, due to optimizations>) at eval.c:536
#18 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#19 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#20 0x0000000100123088 in Fwhile (args=4332012773) at eval.c:989
#21 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#22 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#23 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#24 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#25 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#26 0x00000001001202e0 in funcall_lambda (fun=4334326870, nargs=0, arg_vector=0x7fff5fbfd8b0) at eval.c:3033
#27 0x0000000100121908 in apply_lambda (fun=4334326870, args=4320145466) at eval.c:2915
#28 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#29 0x000000010011fe74 in Fsetq (args=<value temporarily unavailable, due to optimizations>) at eval.c:536
#30 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#31 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#32 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#33 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#34 0x0000000100123088 in Fwhile (args=4334326870) at eval.c:989
#35 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#36 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#37 0x0000000100112ec7 in Fsave_restriction (body=4334167206) at editfns.c:3415
#38 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#39 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#40 0x0000000100112e07 in Fsave_excursion (args=4334167254) at editfns.c:941
#41 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#42 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#43 0x0000000100123347 in Flet (args=<value temporarily unavailable, due to optimizations>) at eval.c:967
#44 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#45 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#46 0x0000000100112e67 in Fsave_current_buffer (args=4334169142) at editfns.c:954
#47 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#48 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#49 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#50 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#51 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#52 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#53 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#54 0x00000001001202e0 in funcall_lambda (fun=4334167478, nargs=3, arg_vector=0x7fff5fbfe5a8) at eval.c:3033
#55 0x000000010012054d in Ffuncall (nargs=4, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#56 0x0000000100120d72 in Fapply (nargs=4, args=0x7fff5fbfe5a0) at eval.c:2292
#57 0x000000010011fd42 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2148
#58 0x000000010011fe74 in Fsetq (args=<value temporarily unavailable, due to optimizations>) at eval.c:536
#59 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#60 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#61 0x000000010011e8f7 in internal_catch (tag=4331910290, func=0x10011ff30 <Fprogn>, arg=4334197254) at eval.c:1109
#62 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#63 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#64 0x0000000100123088 in Fwhile (args=4) at eval.c:989
#65 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#66 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#67 0x0000000100123088 in Fwhile (args=4) at eval.c:989
#68 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#69 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#70 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#71 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#72 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#73 0x00000001001202e0 in funcall_lambda (fun=4334175862, nargs=4, arg_vector=0x7fff5fbfece0) at eval.c:3033
#74 0x0000000100121908 in apply_lambda (fun=4334175862, args=4363406682) at eval.c:2915
#75 0x000000010011f921 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2251
#76 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#77 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#78 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#79 0x00000001001235f1 in FletX (args=<value temporarily unavailable, due to optimizations>) at eval.c:897
#80 0x000000010011fd83 in eval_sub (form=<value temporarily unavailable, due to optimizations>) at eval.c:2124
#81 0x000000010011ff5d in Fprogn (body=<value temporarily unavailable, due to optimizations>) at eval.c:459
#82 0x00000001001202e0 in funcall_lambda (fun=4334875542, nargs=0, arg_vector=0x7fff5fbff1a0) at eval.c:3033
#83 0x000000010012054d in Ffuncall (nargs=1, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#84 0x0000000100120de6 in apply1 (fn=4334156962, arg=<value temporarily unavailable, due to optimizations>) at eval.c:2572
#85 0x000000010011ca5f in Fcall_interactively (function=4334156962, record_flag=4320145466, keys=4672935237) at callint.c:378
#86 0x0000000100120751 in Ffuncall (nargs=4, args=<value temporarily unavailable, due to optimizations>) at eval.c:2813
#87 0x0000000100157f7b in exec_byte_code (bytestr=4, vector=4320145466, maxdepth=-1149410096387949562, args_template=4100, nargs=35, args=0x7fff5fbff528) at bytecode.c:919
#88 0x000000010012054d in Ffuncall (nargs=2, args=<value temporarily unavailable, due to optimizations>) at eval.c:2867
#89 0x000000010012097e in call1 (fn=<value temporarily unavailable, due to optimizations>, arg1=<value temporarily unavailable, due to optimizations>) at eval.c:2605
#90 0x00000001000ba1c7 in command_loop_1 () at keyboard.c:1552
#91 0x000000010011ea43 in internal_condition_case (bfun=0x1000b9c70 <command_loop_1>, handlers=4320211946, hfun=0x1000b1600 <cmd_error>) at eval.c:1345
#92 0x00000001000affd7 in command_loop_2 (ignore=<value temporarily unavailable, due to optimizations>) at keyboard.c:1170
#93 0x000000010011e8f7 in internal_catch (tag=4320208138, func=0x1000affa0 <command_loop_2>, arg=4320145466) at eval.c:1109
#94 0x00000001000af45c in recursive_edit_1 () at keyboard.c:1149
#95 0x00000001000b1897 in Frecursive_edit () at keyboard.c:841
#96 0x00000001000a79b3 in main (argc=1, argv=0x7fff5fbff988) at emacs.c:1637
Unsafe to run code: malloc zone lock is held for some zone..
Canceling call as the malloc lock is held so it isn't safe to call the runtime.
Issue the command:
    set objc-non-blocking-mode off 
to override this check if you are sure your call doesn't use the malloc libraries or the ObjC runtime.
(gdb) 




Information forwarded to bug-gnu-emacs@HIDDEN:
bug#16324; Package emacs,ns. Full text available.

Message received at 16324 <at> debbugs.gnu.org:


Received: (at 16324) by debbugs.gnu.org; 2 Jan 2014 23:42:50 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Thu Jan 02 18:42:50 2014
Received: from localhost ([127.0.0.1]:58754 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.80)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1VyruZ-00053K-FB
	for submit <at> debbugs.gnu.org; Thu, 02 Jan 2014 18:42:50 -0500
Received: from cobb.liquidweb.com ([50.28.13.150]:51193)
 by debbugs.gnu.org with esmtp (Exim 4.80)
 (envelope-from <esq@HIDDEN>) id 1VyruT-000538-7r
 for 16324 <at> debbugs.gnu.org; Thu, 02 Jan 2014 18:42:45 -0500
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=lawlist.com;
 s=default; 
 h=Content-Transfer-Encoding:Content-Type:MIME-Version:Cc:Subject:To:From:Message-ID:Date;
 bh=7vjzennJKurMM8dkZyWCMv2fYgpNjM8JBYANIIsHVmQ=; 
 b=QNNEZBneFHMmMsKycLB/rp7tZ2NArEePESZtWTFRTPAUpbud7X/WIwBnYM88/NmOiqTRl8mkYqTGjYSCjvhWXDHuMl3skyFjTxqeTeVuHcZiAAOyd7DedAUHcTasv9hP;
Received: from cpe-75-85-5-102.socal.res.rr.com ([75.85.5.102]:50401
 helo=MP.local) by cobb.liquidweb.com with esmtp (Exim 4.82)
 (envelope-from <esq@HIDDEN>)
 id 1VyruR-0008Hf-7V; Thu, 02 Jan 2014 18:42:39 -0500
Date: Thu, 02 Jan 2014 15:42:38 -0800
Message-ID: <m2lhyyj6hd.wl%esq@HIDDEN>
From: Keith David Bershatsky <esq@HIDDEN>
To: Jan =?UTF-8?B?RGrDpHJ2?= <jan.h.d@HIDDEN>
Subject: Re: bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
User-Agent: / () / () APEL/10.8 Emacs/24.3.50 (x86_64-apple-darwin10.8.0)
 MULE/6.0 (HANACHIRUSATO)
MIME-Version: 1.0 (generated by   - "")
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-AntiAbuse: This header was added to track abuse,
 please include it with any abuse report
X-AntiAbuse: Primary Hostname - cobb.liquidweb.com
X-AntiAbuse: Original Domain - debbugs.gnu.org
X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12]
X-AntiAbuse: Sender Address Domain - lawlist.com
X-Get-Message-Sender-Via: cobb.liquidweb.com: acl_c_relayhosts_text_entry:
 lawlist|lawlist.com
X-Spam-Score: 0.0 (/)
X-Debbugs-Envelope-To: 16324
Cc: "16324 <at> debbugs.gnu.org" <16324 <at> debbugs.gnu.org>
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.15
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <http://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: 0.0 (/)

Using the bash script below that I modified from an Emacs Wiki describing debugging, here are messages from three crashes that appeared in the terminal window:

Emacs(821,0x7fff71079cc0) malloc: *** error for object 0x11a8e2408: incorrect checksum for freed object - object was probably modified after being freed.
*** set a breakpoint in malloc_error_break to debug

and

MP:~ HOME$ Emacs(733,0x7fff71079cc0) malloc: *** error for object 0x117e9fa08: incorrect checksum for freed object - object was probably modified after being freed.
*** set a breakpoint in malloc_error_break to debug

and

~ HOME$ Emacs(875,0x7fff71079cc0) malloc: *** error for object 0x1198c1c08: incorrect checksum for freed object - object was probably modified after being freed.
*** set a breakpoint in malloc_error_break to debug



#!/bin/sh
 if [[ "$1" == "--debug" ]]; then
     shift
     /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs $* &
     EMACS_PID=$!
     cd /Users/HOME/Desktop/emacs-trunk-01-01-2014/src/
     gdb /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs $EMACS_PID &
 else
     /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs $* &
 fi


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

At Thu, 2 Jan 2014 10:29:22 +0100,
Jan Djärv wrote:
> 
> Hello. 
> 
> This type of backtraces are useless. Get a proper one from the debugger instead. Start the debugger in the src directory. 
> 
>     Jan D. 
> 
> > 2 jan 2014 kl. 08:00 skrev Keith David Bershatsky <esq@HIDDEN>:
> > 
> > On OSX 10.6.8 (Emacs Trunk built January 1, 2014 --with-ns), I'm running a combination of a custom org-agenda in one window and a calendar (marking special dates) in the other window -- the crash occurs as I move forward by month or backward by month, but not any specific month.  The crash does not occur with Emacs Trunk built on October 5, 2013, but it does occur on Emacs Trunk versions built on December 23, 2013 and January 1, 2014.  My setup is fairly lengthy, and I don't have a specific recipe to reproduce the crash -- however, the crash ALWAYS occurs within the first 12 months in either direction.
> > 
> > Process:         Emacs [39167]
> > Path:            /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs
> > Identifier:      org.gnu.Emacs
> > Version:         Version 24.3.50 (9.0)
> > Code Type:       X86-64 (Native)
> > Parent Process:  launchd [169]
> > 
> > Date/Time:       2014-01-01 22:45:12.660 -0800
> > OS Version:      Mac OS X 10.6.8 (10K549)
> > Report Version:  6
> > 
> > Exception Type:  EXC_BAD_ACCESS (SIGABRT)
> > Exception Codes: KERN_INVALID_ADDRESS at 0x000000090c5bb6b8
> > Crashed Thread:  0  Dispatch queue: com.apple.main-thread
> > 
> > Thread 0 Crashed:  Dispatch queue: com.apple.main-thread
> > 0   libSystem.B.dylib                 0x00007fff89abe0b6 __kill + 10
> > 1   org.gnu.Emacs                     0x00000001000a51d4 terminate_due_to_signal + 116 (emacs.c:381)
> > 2   org.gnu.Emacs                     0x00000001000c2fa3 0x100000000 + 798627
> > 3   org.gnu.Emacs                     0x0000000100193d6f ns_term_shutdown + 79 (nsterm.m:4451)
> > 4   org.gnu.Emacs                     0x00000001000a4152 shut_down_emacs + 194 (emacs.c:2045)
> > 5   org.gnu.Emacs                     0x00000001000a51ab terminate_due_to_signal + 75 (emacs.c:363)
> > 6   org.gnu.Emacs                     0x00000001000c303e 0x100000000 + 798782
> > 7   org.gnu.Emacs                     0x00000001000c34a2 deliver_fatal_thread_signal + 146 (sysdep.c:1603)
> > 8   libSystem.B.dylib                 0x00007fff89ad01ba _sigtramp + 26
> > 9   org.gnu.Emacs                     0x0000000100107b40 Fgarbage_collect + 6272 (alloc.c:2975)
> > 10  org.gnu.Emacs                     0x000000010011f6bc eval_sub + 236 (eval.c:2078)
> > 11  org.gnu.Emacs                     0x000000010011fe74 Fsetq + 132 (eval.c:536)
> > 12  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 13  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 14  org.gnu.Emacs                     0x0000000100123088 Fwhile + 40 (eval.c:986)
> > 15  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 16  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 17  org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval.c:897)
> > 18  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 19  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 20  org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 21  org.gnu.Emacs                     0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 22  org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 23  org.gnu.Emacs                     0x000000010011fe74 Fsetq + 132 (eval.c:536)
> > 24  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 25  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 26  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 27  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 28  org.gnu.Emacs                     0x0000000100123088 Fwhile + 40 (eval.c:986)
> > 29  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 30  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 31  org.gnu.Emacs                     0x0000000100112ec7 Fsave_restriction + 71 (editfns.c:3415)
> > 32  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 33  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 34  org.gnu.Emacs                     0x0000000100112e07 Fsave_excursion + 71 (editfns.c:941)
> > 35  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 36  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 37  org.gnu.Emacs                     0x0000000100123347 Flet + 599 (eval.c:967)
> > 38  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 39  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 40  org.gnu.Emacs                     0x0000000100112e67 Fsave_current_buffer + 71 (editfns.c:954)
> > 41  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 42  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 43  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 44  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 45  org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval.c:897)
> > 46  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 47  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 48  org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 49  org.gnu.Emacs                     0x000000010012054d Ffuncall + 525 (eval.c:2867)
> > 50  org.gnu.Emacs                     0x0000000100120d72 Fapply + 834 (eval.c:2292)
> > 51  org.gnu.Emacs                     0x000000010011fd42 eval_sub + 1906 (eval.c:2148)
> > 52  org.gnu.Emacs                     0x000000010011fe74 Fsetq + 132 (eval.c:536)
> > 53  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 54  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 55  org.gnu.Emacs                     0x000000010011e8f7 internal_catch + 247 (eval.c:1109)
> > 56  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 57  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 58  org.gnu.Emacs                     0x0000000100123088 Fwhile + 40 (eval.c:986)
> > 59  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 60  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 61  org.gnu.Emacs                     0x0000000100123088 Fwhile + 40 (eval.c:986)
> > 62  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 63  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 64  org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval.c:897)
> > 65  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 66  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 67  org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 68  org.gnu.Emacs                     0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 69  org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 70  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 71  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 72  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 73  org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval.c:897)
> > 74  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 75  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 76  org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 77  org.gnu.Emacs                     0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 78  org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 79  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 80  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 81  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 82  org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval.c:897)
> > 83  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 84  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 85  org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 86  org.gnu.Emacs                     0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 87  org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 88  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 89  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 90  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 91  org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval.c:897)
> > 92  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 93  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 94  org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 95  org.gnu.Emacs                     0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 96  org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 97  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 98  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 99  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 100 org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval.c:897)
> > 101 org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 102 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 103 org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 104 org.gnu.Emacs                     0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 105 org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 106 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 107 org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 108 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 109 org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval.c:897)
> > 110 org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 111 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 112 org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 113 org.gnu.Emacs                     0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 114 org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 115 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 116 org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 117 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 118 org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval.c:897)
> > 119 org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 120 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 121 org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 122 org.gnu.Emacs                     0x0000000100121908 apply_lambda + 280 (eval.c:2915)
> > 123 org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (eval.c:2251)
> > 124 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 125 org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 126 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 127 org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval.c:897)
> > 128 org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
> > 129 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval.c:459)
> > 130 org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
> > 131 org.gnu.Emacs                     0x000000010012054d Ffuncall + 525 (eval.c:2867)
> > 132 org.gnu.Emacs                     0x0000000100120de6 apply1 + 38 (eval.c:2581)
> > 133 org.gnu.Emacs                     0x000000010011ca5f Fcall_interactively + 5247 (callint.c:378)
> > 134 org.gnu.Emacs                     0x0000000100120751 Ffuncall + 1041 (eval.c:2813)
> > 135 org.gnu.Emacs                     0x0000000100157f7b exec_byte_code + 1019 (bytecode.c:919)
> > 136 org.gnu.Emacs                     0x000000010012054d Ffuncall + 525 (eval.c:2867)
> > 137 org.gnu.Emacs                     0x000000010012097e call1 + 30 (eval.c:2606)
> > 138 org.gnu.Emacs                     0x00000001000ba1c7 command_loop_1 + 1367 (keyboard.c:1560)
> > 139 org.gnu.Emacs                     0x000000010011ea43 internal_condition_case + 259 (eval.c:1345)
> > 140 org.gnu.Emacs                     0x00000001000affd7 command_loop_2 + 55 (keyboard.c:1171)
> > 141 org.gnu.Emacs                     0x000000010011e8f7 internal_catch + 247 (eval.c:1109)
> > 142 org.gnu.Emacs                     0x00000001000af45c recursive_edit_1 + 364 (keyboard.c:1150)
> > 143 org.gnu.Emacs                     0x00000001000b1897 Frecursive_edit + 215 (keyboard.c:842)
> > 144 org.gnu.Emacs                     0x00000001000a79b3 main + 2819 (emacs.c:1640)
> > 145 org.gnu.Emacs                     0x00000001000015a4 start + 52
> > 
> > Thread 1:  Dispatch queue: com.apple.libdispatch-manager
> > 0   libSystem.B.dylib                 0x00007fff89a88c0a kevent + 10
> > 1   libSystem.B.dylib                 0x00007fff89a8aadd _dispatch_mgr_invoke + 154
> > 2   libSystem.B.dylib                 0x00007fff89a8a7b4 _dispatch_queue_invoke + 185
> > 3   libSystem.B.dylib                 0x00007fff89a8a2de _dispatch_worker_thread2 + 252
> > 4   libSystem.B.dylib                 0x00007fff89a89c08 _pthread_wqthread + 353
> > 5   libSystem.B.dylib                 0x00007fff89a89aa5 start_wqthread + 13
> > 
> > Thread 2:
> > 0   libSystem.B.dylib                 0x00007fff89ab3932 select$DARWIN_EXTSN + 10
> > 1   org.gnu.Emacs                     0x000000010019b6b8 -[EmacsApp fd_handler:] + 632 (nsterm.m:4864)
> > 2   com.apple.Foundation              0x00007fff8392b204 __NSThread__main__ + 1429
> > 3   libSystem.B.dylib                 0x00007fff89aa8fd6 _pthread_start + 331
> > 4   libSystem.B.dylib                 0x00007fff89aa8e89 thread_start + 13
> > 
> > Thread 3:
> > 0   libSystem.B.dylib                 0x00007fff89a89a2a __workq_kernreturn + 10
> > 1   libSystem.B.dylib                 0x00007fff89a89e3c _pthread_wqthread + 917
> > 2   libSystem.B.dylib                 0x00007fff89a89aa5 start_wqthread + 13
> > 
> > Thread 0 crashed with X86 Thread State (64-bit):
> >  rax: 0x0000000000000000  rbx: 0x0000000000000006  rcx: 0x00007fff5fbfb298  rdx: 0x0000000000000000
> >  rdi: 0x00000000000098ff  rsi: 0x0000000000000006  rbp: 0x00007fff5fbfb2c0  rsp: 0x00007fff5fbfb298
> >   r8: 0x00007fff70683760   r9: 0x00007fff5fbfb240  r10: 0x00007fff89ad1542  r11: 0xffffff80002e4730
> >  r12: 0x0000000000000028  r13: 0x000000010180303a  r14: 0x000000000000000b  r15: 0x00000001005c3018
> >  rip: 0x00007fff89abe0b6  rfl: 0x0000000000000206  cr2: 0x00000001000a5160
> > 
> > Binary Images:
> >       0x100000000 -        0x100224fff +org.gnu.Emacs Version 24.3.50 (9.0) <0265278B-BBC8-C2D7-6848-CAE8A4F3D8DC> /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs
> >    0x7fff5fc00000 -     0x7fff5fc3be0f  dyld 132.1 (???) <29DECB19-0193-2575-D838-CF743F0400B2> /usr/lib/dyld
> >    0x7fff80003000 -     0x7fff80044fef  com.apple.QD 3.36 (???) <5DC41E81-32C9-65B2-5528-B33E934D5BB4> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/QD.framework/Versions/A/QD
> >    0x7fff80045000 -     0x7fff80488fef  libLAPACK.dylib 219.0.0 (compatibility 1.0.0) <0CC61C98-FF51-67B3-F3D8-C5E430C201A9> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libLAPACK.dylib
> >    0x7fff804a1000 -     0x7fff804c1ff7  com.apple.DirectoryService.Framework 3.6 (621.12) <A4685F06-5881-35F5-764D-C380304C1CE8> /System/Library/Frameworks/DirectoryService.framework/Versions/A/DirectoryService
> >    0x7fff804c2000 -     0x7fff804c2ff7  com.apple.Accelerate.vecLib 3.6 (vecLib 3.6) <4CCE5D69-F1B3-8FD3-1483-E0271DB2CCF3> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/vecLib
> >    0x7fff804c3000 -     0x7fff804d1ff7  libkxld.dylib ??? (???) <8145A534-95CC-9F3C-B78B-AC9898F38C6F> /usr/lib/system/libkxld.dylib
> >    0x7fff805ec000 -     0x7fff805edff7  com.apple.audio.units.AudioUnit 1.6.7 (1.6.7) <53299948-2554-0F8F-7501-04B34E49F6CF> /System/Library/Frameworks/AudioUnit.framework/Versions/A/AudioUnit
> >    0x7fff8075f000 -     0x7fff807f9fe7  com.apple.ApplicationServices.ATS 275.16 (???) <4B70A2FC-1902-5F27-5C3B-5C78C283C6EA> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/ATS
> >    0x7fff80800000 -     0x7fff80843ff7  libRIP.A.dylib 545.0.0 (compatibility 64.0.0) <5FF3D7FD-84D8-C5FA-D640-90BB82EC651D> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/Resources/libRIP.A.dylib
> >    0x7fff80844000 -     0x7fff80b78fef  com.apple.CoreServices.CarbonCore 861.39 (861.39) <1386A24D-DD15-5903-057E-4A224FAF580B> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/CarbonCore.framework/Versions/A/CarbonCore
> >    0x7fff80dda000 -     0x7fff80e2dff7  com.apple.HIServices 1.8.3 (???) <F6E0C7A7-C11D-0096-4DDA-2C77793AA6CD> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/HIServices.framework/Versions/A/HIServices
> >    0x7fff810e2000 -     0x7fff810e9fff  com.apple.OpenDirectory 10.6 (10.6) <4FF6AD25-0916-B21C-9E88-2CC42D90EAC7> /System/Library/Frameworks/OpenDirectory.framework/Versions/A/OpenDirectory
> >    0x7fff81339000 -     0x7fff81637fff  com.apple.HIToolbox 1.6.5 (???) <AD1C18F6-51CB-7E39-35DD-F16B1EB978A8> /System/Library/Frameworks/Carbon.framework/Versions/A/Frameworks/HIToolbox.framework/Versions/A/HIToolbox
> >    0x7fff81638000 -     0x7fff81673fff  com.apple.AE 496.5 (496.5) <208DF391-4DE6-81ED-C697-14A2930D1BC6> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/AE.framework/Versions/A/AE
> >    0x7fff81674000 -     0x7fff81704fff  com.apple.SearchKit 1.3.0 (1.3.0) <4175DC31-1506-228A-08FD-C704AC9DF642> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/SearchKit.framework/Versions/A/SearchKit
> >    0x7fff81705000 -     0x7fff81716ff7  libz.1.dylib 1.2.3 (compatibility 1.0.0) <97019C74-161A-3488-41EC-A6CA8738418C> /usr/lib/libz.1.dylib
> >    0x7fff81717000 -     0x7fff8175fff7  libvDSP.dylib 268.0.1 (compatibility 1.0.0) <98FC4457-F405-0262-00F7-56119CA107B6> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libvDSP.dylib
> >    0x7fff81760000 -     0x7fff81800fff  com.apple.LaunchServices 362.3 (362.3) <B90B7C31-FEF8-3C26-BFB3-D8A48BD2C0DA> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/LaunchServices.framework/Versions/A/LaunchServices
> >    0x7fff81801000 -     0x7fff81efdff7  com.apple.CoreGraphics 1.545.0 (???) <58D597B1-EB3B-710E-0B8C-EC114D54E11B> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/CoreGraphics
> >    0x7fff81efe000 -     0x7fff81f83ff7  com.apple.print.framework.PrintCore 6.3 (312.7) <CDFE82DD-D811-A091-179F-6E76069B432D> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/PrintCore.framework/Versions/A/PrintCore
> >    0x7fff81f94000 -     0x7fff81fbbff7  libJPEG.dylib ??? (???) <46A413EA-4FD1-A050-2EF0-6279F3EAD581> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libJPEG.dylib
> >    0x7fff822bf000 -     0x7fff8238afff  ColorSyncDeprecated.dylib 4.6.0 (compatibility 1.0.0) <E72880D9-3B5D-D086-9266-F4F3C294619F> /System/Library/Frameworks/ApplicationServices.framework/Frameworks/ColorSync.framework/Versions/A/Resources/ColorSyncDeprecated.dylib
> >    0x7fff8238b000 -     0x7fff8238bff7  com.apple.CoreServices 44 (44) <DC7400FB-851E-7B8A-5BF6-6F50094302FB> /System/Library/Frameworks/CoreServices.framework/Versions/A/CoreServices
> >    0x7fff8238c000 -     0x7fff823d5fef  libGLU.dylib ??? (???) <1C050088-4AB2-2BC2-62E6-C969F925A945> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLU.dylib
> >    0x7fff82406000 -     0x7fff82520fef  libGLProgrammability.dylib ??? (???) <8A4B86E3-0FA7-8684-2EF2-C5F8079428DB> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLProgrammability.dylib
> >    0x7fff82521000 -     0x7fff827aaff7  com.apple.security 6.1.2 (55002) <4419AFFC-DAE7-873E-6A7D-5C9A5A4497A6> /System/Library/Frameworks/Security.framework/Versions/A/Security
> >    0x7fff827ab000 -     0x7fff827bfff7  com.apple.speech.synthesis.framework 3.10.35 (3.10.35) <621B7415-A0B9-07A7-F313-36BEEDD7B132> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/SpeechSynthesis.framework/Versions/A/SpeechSynthesis
> >    0x7fff82813000 -     0x7fff8283eff7  libxslt.1.dylib 3.24.0 (compatibility 3.0.0) <8AB4CA9E-435A-33DA-7041-904BA7FA11D5> /usr/lib/libxslt.1.dylib
> >    0x7fff8283f000 -     0x7fff82854ff7  com.apple.LangAnalysis 1.6.6 (1.6.6) <1AE1FE8F-2204-4410-C94E-0E93B003BEDA> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/LangAnalysis.framework/Versions/A/LangAnalysis
> >    0x7fff82915000 -     0x7fff8311ffe7  libBLAS.dylib 219.0.0 (compatibility 1.0.0) <FC941ECB-71D0-FAE3-DCBF-C5A619E594B8> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
> >    0x7fff83281000 -     0x7fff836c8fef  com.apple.RawCamera.bundle 3.7.1 (570) <5AFA87CA-DC3D-F84E-7EA1-6EABA8807766> /System/Library/CoreServices/RawCamera.bundle/Contents/MacOS/RawCamera
> >    0x7fff836ce000 -     0x7fff837edfe7  libcrypto.0.9.8.dylib 0.9.8 (compatibility 0.9.8) <14115D29-432B-CF02-6B24-A60CC533A09E> /usr/lib/libcrypto.0.9.8.dylib
> >    0x7fff8391a000 -     0x7fff83b9cfe7  com.apple.Foundation 6.6.7 (751.62) <6F2A5BBF-6990-D561-2928-AD61E94036D9> /System/Library/Frameworks/Foundation.framework/Versions/C/Foundation
> >    0x7fff83bab000 -     0x7fff83bbafff  com.apple.NetFS 3.2.2 (3.2.2) <7CCBD70E-BF31-A7A7-DB98-230687773145> /System/Library/Frameworks/NetFS.framework/Versions/A/NetFS
> >    0x7fff83bbb000 -     0x7fff83bdefff  com.apple.opencl 12.3.6 (12.3.6) <42FA5783-EB80-1168-4015-B8C68F55842F> /System/Library/Frameworks/OpenCL.framework/Versions/A/OpenCL
> >    0x7fff83bdf000 -     0x7fff83d56fe7  com.apple.CoreFoundation 6.6.5 (550.43) <31A1C118-AD96-0A11-8BDF-BD55B9940EDC> /System/Library/Frameworks/CoreFoundation.framework/Versions/A/CoreFoundation
> >    0x7fff83d85000 -     0x7fff8477fff7  com.apple.AppKit 6.6.8 (1038.36) <4CFBE04C-8FB3-B0EA-8DDB-7E7D10E9D251> /System/Library/Frameworks/AppKit.framework/Versions/C/AppKit
> >    0x7fff84987000 -     0x7fff84a3cfe7  com.apple.ink.framework 1.3.3 (107) <8C36373C-5473-3A6A-4972-BC29D504250F> /System/Library/Frameworks/Carbon.framework/Versions/A/Frameworks/Ink.framework/Versions/A/Ink
> >    0x7fff84a6c000 -     0x7fff84aa6fff  libcups.2.dylib 2.8.0 (compatibility 2.0.0) <539EBFDD-96D6-FB07-B128-40232C408757> /usr/lib/libcups.2.dylib
> >    0x7fff84aa7000 -     0x7fff84aadff7  IOSurface ??? (???) <8E302BB2-0704-C6AB-BD2F-C2A6C6A2E2C3> /System/Library/Frameworks/IOSurface.framework/Versions/A/IOSurface
> >    0x7fff84aae000 -     0x7fff84acbff7  libPng.dylib ??? (???) <6D8E515B-E0A2-2BA1-9CAC-8CB8A8B35879> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libPng.dylib
> >    0x7fff84e1b000 -     0x7fff84ed8fff  com.apple.CoreServices.OSServices 359.2 (359.2) <BBB8888E-18DE-5D09-3C3A-F4C029EC7886> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/OSServices.framework/Versions/A/OSServices
> >    0x7fff8571a000 -     0x7fff857d3fff  libsqlite3.dylib 9.6.0 (compatibility 9.0.0) <2C5ED312-E646-9ADE-73A9-6199A2A43150> /usr/lib/libsqlite3.dylib
> >    0x7fff857d4000 -     0x7fff85992ff7  com.apple.ImageIO.framework 3.0.4 (3.0.4) <0A4F51A1-4502-767B-8A4E-F14C6214EF88> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/ImageIO
> >    0x7fff85993000 -     0x7fff859fdfe7  libvMisc.dylib 268.0.1 (compatibility 1.0.0) <AF0EA96D-000F-8C12-B952-CB7E00566E08> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libvMisc.dylib
> >    0x7fff859fe000 -     0x7fff859ffff7  com.apple.TrustEvaluationAgent 1.1 (1) <5952A9FA-BC2B-16EF-91A7-43902A5C07B6> /System/Library/PrivateFrameworks/TrustEvaluationAgent.framework/Versions/A/TrustEvaluationAgent
> >    0x7fff85a00000 -     0x7fff85a04ff7  libCGXType.A.dylib 545.0.0 (compatibility 64.0.0) <DB710299-B4D9-3714-66F7-5D2964DE585B> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/Resources/libCGXType.A.dylib
> >    0x7fff85a05000 -     0x7fff85abbff7  libobjc.A.dylib 227.0.0 (compatibility 1.0.0) <03140531-3B2D-1EBA-DA7F-E12CC8F63969> /usr/lib/libobjc.A.dylib
> >    0x7fff86be6000 -     0x7fff86beaff7  libmathCommon.A.dylib 315.0.0 (compatibility 1.0.0) <95718673-FEEE-B6ED-B127-BCDBDB60D4E5> /usr/lib/system/libmathCommon.A.dylib
> >    0x7fff86beb000 -     0x7fff86cbffe7  com.apple.CFNetwork 454.12.4 (454.12.4) <C83E2BA1-1818-B3E8-5334-860AD21D1C80> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/CFNetwork.framework/Versions/A/CFNetwork
> >    0x7fff86cc0000 -     0x7fff86d15ff7  com.apple.framework.familycontrols 2.0.2 (2020) <8807EB96-D12D-8601-2E74-25784A0DE4FF> /System/Library/PrivateFrameworks/FamilyControls.framework/Versions/A/FamilyControls
> >    0x7fff86d16000 -     0x7fff86d65ff7  com.apple.DirectoryService.PasswordServerFramework 6.1 (6.1) <0731C40D-71EF-B417-C83B-54C3527A36EA> /System/Library/PrivateFrameworks/PasswordServer.framework/Versions/A/PasswordServer
> >    0x7fff86d6a000 -     0x7fff86de9fe7  com.apple.audio.CoreAudio 3.2.6 (3.2.6) <79E256EB-43F1-C7AA-6436-124A4FFB02D0> /System/Library/Frameworks/CoreAudio.framework/Versions/A/CoreAudio
> >    0x7fff872f1000 -     0x7fff872f7ff7  com.apple.DiskArbitration 2.3 (2.3) <857F6E43-1EF4-7D53-351B-10DE0A8F992A> /System/Library/Frameworks/DiskArbitration.framework/Versions/A/DiskArbitration
> >    0x7fff874b9000 -     0x7fff87856fe7  com.apple.QuartzCore 1.6.3 (227.37) <16DFF6CD-EA58-CE62-A1D7-5F6CE3D066DD> /System/Library/Frameworks/QuartzCore.framework/Versions/A/QuartzCore
> >    0x7fff87916000 -     0x7fff879fbfef  com.apple.DesktopServices 1.5.11 (1.5.11) <39FAA3D2-6863-B5AB-AED9-92D878EA2438> /System/Library/PrivateFrameworks/DesktopServicesPriv.framework/Versions/A/DesktopServicesPriv
> >    0x7fff879fc000 -     0x7fff87a21ff7  com.apple.CoreVideo 1.6.2 (45.6) <E138C8E7-3CB6-55A9-0A2C-B73FE63EA288> /System/Library/Frameworks/CoreVideo.framework/Versions/A/CoreVideo
> >    0x7fff87a80000 -     0x7fff87a96fe7  com.apple.MultitouchSupport.framework 207.11 (207.11) <8233CE71-6F8D-8B3C-A0E1-E123F6406163> /System/Library/PrivateFrameworks/MultitouchSupport.framework/Versions/A/MultitouchSupport
> >    0x7fff87a97000 -     0x7fff87ae6fef  libTIFF.dylib ??? (???) <1E2593D1-A7F6-84C6-DF8F-0B46AE445926> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libTIFF.dylib
> >    0x7fff87b0b000 -     0x7fff87b0eff7  libCoreVMClient.dylib ??? (???) <E03D7C81-A3DA-D44A-A88A-DDBB98AF910B> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libCoreVMClient.dylib
> >    0x7fff87b1b000 -     0x7fff87b1bff7  com.apple.vecLib 3.6 (vecLib 3.6) <96FB6BAD-5568-C4E0-6FA7-02791A58B584> /System/Library/Frameworks/vecLib.framework/Versions/A/vecLib
> >    0x7fff8832f000 -     0x7fff88335ff7  com.apple.CommerceCore 1.0 (9.1) <3691E9BA-BCF4-98C7-EFEC-78DA6825004E> /System/Library/PrivateFrameworks/CommerceKit.framework/Versions/A/Frameworks/CommerceCore.framework/Versions/A/CommerceCore
> >    0x7fff88336000 -     0x7fff88338fff  libRadiance.dylib ??? (???) <A9DB4D5D-4072-971B-DEF6-DDE645F415EA> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libRadiance.dylib
> >    0x7fff8857f000 -     0x7fff885b0fff  libGLImage.dylib ??? (???) <7F102A07-E4FB-9F52-B2F6-4E2D2383CA13> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLImage.dylib
> >    0x7fff885b1000 -     0x7fff8868efff  com.apple.vImage 4.1 (4.1) <C3F44AA9-6F71-0684-2686-D3BBC903F020> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vImage.framework/Versions/A/vImage
> >    0x7fff8887e000 -     0x7fff888c8ff7  com.apple.Metadata 10.6.3 (507.15) <2EF19055-D7AE-4D77-E589-7B71B0BC1E59> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/Metadata.framework/Versions/A/Metadata
> >    0x7fff88936000 -     0x7fff88969ff7  libTrueTypeScaler.dylib ??? (???) <69D4A213-45D2-196D-7FF8-B52A31DFD329> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/libTrueTypeScaler.dylib
> >    0x7fff889c4000 -     0x7fff88a0bff7  com.apple.coreui 2 (114) <923E33CC-83FC-7D35-5603-FB8F348EE34B> /System/Library/PrivateFrameworks/CoreUI.framework/Versions/A/CoreUI
> >    0x7fff88a0c000 -     0x7fff88a17ff7  com.apple.speech.recognition.framework 3.11.1 (3.11.1) <3D65E89B-FFC6-4AAF-D5CC-104F967C8131> /System/Library/Frameworks/Carbon.framework/Versions/A/Frameworks/SpeechRecognition.framework/Versions/A/SpeechRecognition
> >    0x7fff88a18000 -     0x7fff88a40fff  com.apple.DictionaryServices 1.1.2 (1.1.2) <E9269069-93FA-2B71-F9BA-FDDD23C4A65E> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/DictionaryServices.framework/Versions/A/DictionaryServices
> >    0x7fff88d64000 -     0x7fff88d7afef  libbsm.0.dylib ??? (???) <42D3023A-A1F7-4121-6417-FCC6B51B3E90> /usr/lib/libbsm.0.dylib
> >    0x7fff88d7b000 -     0x7fff88df8fef  libstdc++.6.dylib 7.9.0 (compatibility 7.0.0) <35ECA411-2C08-FD7D-11B1-1B7A04921A5C> /usr/lib/libstdc++.6.dylib
> >    0x7fff88df9000 -     0x7fff88e85fef  SecurityFoundation ??? (???) <3F1F2727-C508-3630-E2C1-38361841FCE4> /System/Library/Frameworks/SecurityFoundation.framework/Versions/A/SecurityFoundation
> >    0x7fff88e86000 -     0x7fff88e87fff  liblangid.dylib ??? (???) <EA4D1607-2BD5-2EE2-2A3B-632EEE5A444D> /usr/lib/liblangid.dylib
> >    0x7fff88f18000 -     0x7fff89056fff  com.apple.CoreData 102.1 (251) <9DFE798D-AA52-6A9A-924A-DA73CB94D81A> /System/Library/Frameworks/CoreData.framework/Versions/A/CoreData
> >    0x7fff89096000 -     0x7fff89096ff7  com.apple.Accelerate 1.6 (Accelerate 1.6) <15DF8B4A-96B2-CB4E-368D-DEC7DF6B62BB> /System/Library/Frameworks/Accelerate.framework/Versions/A/Accelerate
> >    0x7fff89097000 -     0x7fff8909cfff  libGFXShared.dylib ??? (???) <1D0D3531-9561-632C-D620-1A8652BEF5BC> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGFXShared.dylib
> >    0x7fff8909d000 -     0x7fff891d2fff  com.apple.audio.toolbox.AudioToolbox 1.6.7 (1.6.7) <E5D7DBDB-6DDF-E6F9-C71C-86F4520EE5A3> /System/Library/Frameworks/AudioToolbox.framework/Versions/A/AudioToolbox
> >    0x7fff891d3000 -     0x7fff89212fef  libncurses.5.4.dylib 5.4.0 (compatibility 5.4.0) <9D53BE03-6D81-D0CB-F657-4E842E69A66A> /usr/lib/libncurses.5.4.dylib
> >    0x7fff89263000 -     0x7fff89263ff7  com.apple.ApplicationServices 38 (38) <10A0B9E9-4988-03D4-FC56-DDE231A02C63> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/ApplicationServices
> >    0x7fff89518000 -     0x7fff8951dfff  libGIF.dylib ??? (???) <201B8077-B5CC-11AA-E1B0-1D057ABE416A> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libGIF.dylib
> >    0x7fff8955f000 -     0x7fff89573fff  libGL.dylib ??? (???) <2ECE3B0F-39E1-3938-BF27-7205C6D0358B> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGL.dylib
> >    0x7fff89574000 -     0x7fff89595fff  libresolv.9.dylib 41.0.0 (compatibility 1.0.0) <9F322F47-0584-CB7D-5B73-9EBD670851CD> /usr/lib/libresolv.9.dylib
> >    0x7fff895d7000 -     0x7fff89687fff  edu.mit.Kerberos 6.5.11 (6.5.11) <085D80F5-C9DC-E252-C21B-03295E660C91> /System/Library/Frameworks/Kerberos.framework/Versions/A/Kerberos
> >    0x7fff89767000 -     0x7fff897a4ff7  libFontRegistry.dylib ??? (???) <4C3293E2-851B-55CE-3BE3-29C425DD5DFF> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/libFontRegistry.dylib
> >    0x7fff897a5000 -     0x7fff89866fef  com.apple.ColorSync 4.6.6 (4.6.6) <BB2C5813-C61D-3CBA-A8F7-0E59E46EBEE8> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ColorSync.framework/Versions/A/ColorSync
> >    0x7fff89867000 -     0x7fff89879fe7  libsasl2.2.dylib 3.15.0 (compatibility 3.0.0) <76B83C8D-8EFE-4467-0F75-275648AFED97> /usr/lib/libsasl2.2.dylib
> >    0x7fff89a61000 -     0x7fff89a6efe7  libCSync.A.dylib 545.0.0 (compatibility 64.0.0) <1C35FA50-9C70-48DC-9E8D-2054F7A266B1> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/Resources/libCSync.A.dylib
> >    0x7fff89a6f000 -     0x7fff89c30fef  libSystem.B.dylib 125.2.11 (compatibility 1.0.0) <9AB4F1D1-89DC-0E8A-DC8E-A4FE4D69DB69> /usr/lib/libSystem.B.dylib
> >    0x7fff89c31000 -     0x7fff89d48fef  libxml2.2.dylib 10.3.0 (compatibility 10.0.0) <1B27AFDD-DF87-2009-170E-C129E1572E8B> /usr/lib/libxml2.2.dylib
> >    0x7fff89d49000 -     0x7fff89d58fef  com.apple.opengl 1.6.13 (1.6.13) <516098B3-4517-8A55-64BB-195CDAA5334D> /System/Library/Frameworks/OpenGL.framework/Versions/A/OpenGL
> >    0x7fff89d59000 -     0x7fff89dd7ff7  com.apple.CoreText 151.10 (???) <54961997-55D8-DC0F-2634-674E452D5A8E> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreText.framework/Versions/A/CoreText
> >    0x7fff89dd8000 -     0x7fff89df1fff  com.apple.CFOpenDirectory 10.6 (10.6) <401557B1-C6D1-7E1A-0D7E-941715C37BFA> /System/Library/Frameworks/OpenDirectory.framework/Versions/A/Frameworks/CFOpenDirectory.framework/Versions/A/CFOpenDirectory
> >    0x7fff89df2000 -     0x7fff89e3efff  libauto.dylib ??? (???) <F7221B46-DC4F-3153-CE61-7F52C8C293CF> /usr/lib/libauto.dylib
> >    0x7fff89eb1000 -     0x7fff89f11fe7  com.apple.framework.IOKit 2.0 (???) <4F071EF0-8260-01E9-C641-830E582FA416> /System/Library/Frameworks/IOKit.framework/Versions/A/IOKit
> >    0x7fff89f12000 -     0x7fff89f53fff  com.apple.SystemConfiguration 1.10.8 (1.10.2) <78D48D27-A9C4-62CA-2803-D0BBED82855A> /System/Library/Frameworks/SystemConfiguration.framework/Versions/A/SystemConfiguration
> >    0x7fff89f54000 -     0x7fff8a015fff  libFontParser.dylib ??? (???) <A00BB0A7-E46C-1D07-1391-194745566C7E> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/libFontParser.dylib
> >    0x7fff8a05a000 -     0x7fff8a218fff  libicucore.A.dylib 40.0.0 (compatibility 1.0.0) <4274FC73-A257-3A56-4293-5968F3428854> /usr/lib/libicucore.A.dylib
> >    0x7fffffe00000 -     0x7fffffe01fff  libSystem.B.dylib ??? (???) <9AB4F1D1-89DC-0E8A-DC8E-A4FE4D69DB69> /usr/lib/libSystem.B.dylib
> > 
> > 
> > ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> > 
> > In GNU Emacs 24.3.50.1 (x86_64-apple-darwin10.8.0, NS apple-appkit-1038.36)
> > of 2014-01-01 on MP.local
> > Bzr revision: 115826 eliz@HIDDEN
> > Windowing system distributor `Apple', version 10.3.1038
> > Configured using:
> > `configure --with-ns'
> > 
> > Important settings:
> >  locale-coding-system: utf-8-unix
> > 
> > Major mode: Text
> > 
> > Minor modes in effect:
> >  whitespace-mode: t
> >  linum-mode: t
> >  hl-line-mode: t
> >  flyspell-mode: t
> >  delete-selection-mode: t
> >  yas-global-mode: t
> >  yas-minor-mode: t
> >  desktop-save-mode: t
> >  tabbar-mode: t
> >  highlight-parentheses-mode: t
> >  font-lock-mode: t
> >  blink-cursor-mode: t
> >  visual-line-mode: t
> >  transient-mark-mode: t
> > 
> > Recent input:
> > s-N s-w k <escape> x r e p o r t - e m <return> b u 
> > g s <return> <backspace> <return>
> > 
> > Recent messages:
> > Loading msgdb for %INBOX.Drafts...done
> > Loading mail-mime-setup...done
> > Updating addresses...done
> > Making change-major-mode-hook buffer-local while locally let-bound!
> > Type C-c C-x C-z to exit MIME mode, and type C-c C-x ? to get help.
> > Saving...done
> > Mark set
> > [k]ill or [s]ave draft?
> > Loading msgdb for +/Users/HOME/.0.data/.0.emacs/.0.mail/msgdb/imap/mail.lawlist.com/lawlist/INBOX.Drafts/spool...done
> > *beep*
> > 
> > Load-path shadows:
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/md4 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/md4
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/hex-util hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/hex-util
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-ntlm hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-ntlm
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-digest hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-digest
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-cram hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-cram
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/ntlm hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/ntlm
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/hmac-md5 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/hmac-md5
> > /Users/HOME/.0.data/.0.emacs/elpa/flim/hmac-def hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/hmac-def
> > /Users/HOME/.0.data/.0.emacs/elpa/wanderlust/rfc2368 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/mail/rfc2368
> > /Users/HOME/.0.data/.0.emacs/elpa/wanderlust/utf7 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/utf7
> > /Users/HOME/.0.data/.0.emacs/elpa/semi/smime hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/smime
> > /Users/HOME/.0.data/.0.emacs/elpa/el-get/.dir-locals hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/.dir-locals
> > /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg
> > /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-pgp5 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-pgp5
> > /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-pgp hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-pgp
> > /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-parse hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-parse
> > /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-gpg hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-gpg
> > /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-def hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-def
> > /Users/HOME/.0.data/.0.emacs/elpa/utilities/longlines hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/longlines
> > 
> > Features:
> > (shadow emacsbug message rfc822 mml mml-sec mm-decode mm-bodies
> > mm-encode mailabbrev gmm-utils mailheader modb-legacy wl-mime
> > mime-edit pgg-parse pccl pccl-20 signature mime-setup mail-mime-setup
> > semi-setup mime-pgp pgg-def mime-play filename mime-image
> > modb-standard elmo-imap4 time-stamp server disp-table whitespace linum
> > init-wl wl-demo wl-draft eword-encode wl-template sendmail mail-utils
> > elmo-net elmo-cache elmo-map elmo-dop wl-news wl-address wl-thread
> > wl-folder wl wl-e21 wl-spam wl-action wl-summary wl-refile wl-util pp
> > elmo-flag elmo-localdir wl-message elmo-mime mmelmo-buffer mmelmo-imap
> > mime-view mime-conf calist semi-def mmimap mime-parse mmbuffer
> > mmgeneric elmo-multi elmo-spam elsp-header elsp-generic elmo
> > elmo-signal wl-highlight wl-vars wl-version epg-config elmo-msgdb modb
> > modb-generic modb-entity luna mime elmo-util emu invisible inv-23 poem
> > poem-e20 poem-e20_3 utf7 eword-decode mel mime-def alist std11
> > mcharset mcs-20 mcs-e20 pces pces-e20 pces-20 broken pcustom elmo-date
> > elmo-vars elmo-version path-util poe pym static apel-ver product
> > w3m-load mime-w3m w3m browse-url doc-view jka-compr image-mode
> > w3m-hist w3m-fb bookmark-w3m w3m-ems wid-edit w3m-ccl ccl w3m-favicon
> > w3m-image w3m-proc w3m-util hl-line multiple-cursors-autoloads package
> > ps-print ps-def lpr bbdb-autoloads bbdb timezone flyspell ispell
> > auto-save-buffers-enhanced delsel savehist fill-column-indicator
> > highlight-indentation column-marker col-highlight vline
> > centered-cursor-mode dired-aux dired yasnippet help-mode debug
> > multiple-cursors mc-separate-operations rectangular-region-mode
> > mc-mark-more thingatpt mc-cycle-cursors mc-edit-lines
> > multiple-cursors-core edmacro kmacro rect saveplace init-auctex
> > tex-site desktop frameset init-tabbar tabbar init-org derived cl-macs
> > gv holidays hol-loaddefs org-capture org-agenda org-toodledo
> > mailcap-toodledo lawlist-tls http-post-simple cl cl-loaddefs cl-lib
> > url-http tls url-auth mail-parse rfc2231 rfc2047 rfc2045 ietf-drums
> > url-gw url url-proxy url-privacy url-expand url-methods url-history
> > url-cookie url-domsuf url-util url-parse auth-source eieio eieio-core
> > gnus-util mm-util mail-prsvr password-cache url-vars mailcap json xml
> > w3mexcerpt org byte-opt bytecomp byte-compile cconv advice help-fns
> > org-macro org-footnote org-pcomplete pcomplete org-list org-faces
> > org-entities noutline outline easy-mmode org-version ob-emacs-lisp ob
> > ob-tangle org-src ob-ref ob-lob ob-table ob-keys ob-exp ob-comint
> > comint ansi-color ring ob-core ob-eval org-compat org-macs
> > org-loaddefs format-spec find-func cal-menu calendar cal-loaddefs
> > hideshow easymenu highlight-parentheses redo time-date tooltip
> > electric uniquify ediff-hook vc-hooks lisp-float-type mwheel ns-win
> > tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment
> > lisp-mode prog-mode register page menu-bar rfn-eshadow timer select
> > scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame
> > cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet
> > lao korean japanese hebrew greek romanian slovak czech european
> > ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook
> > help simple abbrev minibuffer nadvice loaddefs button faces cus-face
> > macroexp files text-properties overlay sha1 md5 base64 format env
> > code-pages mule custom widget hashtable-print-readable backquote
> > make-network-process cocoa ns multi-tty emacs)
> > 
> > 




Information forwarded to bug-gnu-emacs@HIDDEN:
bug#16324; Package emacs,ns. Full text available.

Message received at 16324 <at> debbugs.gnu.org:


Received: (at 16324) by debbugs.gnu.org; 2 Jan 2014 09:29:39 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Thu Jan 02 04:29:39 2014
Received: from localhost ([127.0.0.1]:57330 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.80)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1Vyeau-0003SU-3y
	for submit <at> debbugs.gnu.org; Thu, 02 Jan 2014 04:29:38 -0500
Received: from mailfe01.swip.net ([212.247.154.1]:35632 helo=swip.net)
 by debbugs.gnu.org with esmtp (Exim 4.80)
 (envelope-from <jan.h.d@HIDDEN>) id 1Vyean-0003SC-LF
 for 16324 <at> debbugs.gnu.org; Thu, 02 Jan 2014 04:29:34 -0500
X-T2-Spam-Status: No, hits=0.8 required=5.0 tests=BAYES_50, MIME_QP_LONG_LINE
Received: from hosdjarv.se (account mj138573@HIDDEN [46.59.42.57] verified)
 by mailfe01.swip.net (CommuniGate Pro SMTP 5.4.4)
 with ESMTPA id 468752267; Thu, 02 Jan 2014 10:29:25 +0100
References: <m2ha9m3m2w.wl%esq@HIDDEN>
Mime-Version: 1.0 (1.0)
In-Reply-To: <m2ha9m3m2w.wl%esq@HIDDEN>
Content-Type: text/plain;
	charset=us-ascii
Content-Transfer-Encoding: quoted-printable
Message-Id: <231E413A-A85E-4060-BB05-9A1951B4FEAA@HIDDEN>
X-Mailer: iPhone Mail (11B554a)
From: =?utf-8?Q?Jan_Dj=C3=A4rv?= <jan.h.d@HIDDEN>
Subject: Re: bug#16324: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
Date: Thu, 2 Jan 2014 10:29:22 +0100
To: Keith David Bershatsky <esq@HIDDEN>
X-Spam-Score: -0.0 (/)
X-Debbugs-Envelope-To: 16324
Cc: "16324 <at> debbugs.gnu.org" <16324 <at> debbugs.gnu.org>
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.15
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <http://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -0.0 (/)

Hello.=20

This type of backtraces are useless. Get a proper one from the debugger inst=
ead. Start the debugger in the src directory.=20

    Jan D.=20

> 2 jan 2014 kl. 08:00 skrev Keith David Bershatsky <esq@HIDDEN>:
>=20
> On OSX 10.6.8 (Emacs Trunk built January 1, 2014 --with-ns), I'm running a=
 combination of a custom org-agenda in one window and a calendar (marking sp=
ecial dates) in the other window -- the crash occurs as I move forward by mo=
nth or backward by month, but not any specific month.  The crash does not oc=
cur with Emacs Trunk built on October 5, 2013, but it does occur on Emacs Tr=
unk versions built on December 23, 2013 and January 1, 2014.  My setup is fa=
irly lengthy, and I don't have a specific recipe to reproduce the crash -- h=
owever, the crash ALWAYS occurs within the first 12 months in either directi=
on.
>=20
> Process:         Emacs [39167]
> Path:            /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Ema=
cs
> Identifier:      org.gnu.Emacs
> Version:         Version 24.3.50 (9.0)
> Code Type:       X86-64 (Native)
> Parent Process:  launchd [169]
>=20
> Date/Time:       2014-01-01 22:45:12.660 -0800
> OS Version:      Mac OS X 10.6.8 (10K549)
> Report Version:  6
>=20
> Exception Type:  EXC_BAD_ACCESS (SIGABRT)
> Exception Codes: KERN_INVALID_ADDRESS at 0x000000090c5bb6b8
> Crashed Thread:  0  Dispatch queue: com.apple.main-thread
>=20
> Thread 0 Crashed:  Dispatch queue: com.apple.main-thread
> 0   libSystem.B.dylib                 0x00007fff89abe0b6 __kill + 10
> 1   org.gnu.Emacs                     0x00000001000a51d4 terminate_due_to_=
signal + 116 (emacs.c:381)
> 2   org.gnu.Emacs                     0x00000001000c2fa3 0x100000000 + 798=
627
> 3   org.gnu.Emacs                     0x0000000100193d6f ns_term_shutdown +=
 79 (nsterm.m:4451)
> 4   org.gnu.Emacs                     0x00000001000a4152 shut_down_emacs +=
 194 (emacs.c:2045)
> 5   org.gnu.Emacs                     0x00000001000a51ab terminate_due_to_=
signal + 75 (emacs.c:363)
> 6   org.gnu.Emacs                     0x00000001000c303e 0x100000000 + 798=
782
> 7   org.gnu.Emacs                     0x00000001000c34a2 deliver_fatal_thr=
ead_signal + 146 (sysdep.c:1603)
> 8   libSystem.B.dylib                 0x00007fff89ad01ba _sigtramp + 26
> 9   org.gnu.Emacs                     0x0000000100107b40 Fgarbage_collect +=
 6272 (alloc.c:2975)
> 10  org.gnu.Emacs                     0x000000010011f6bc eval_sub + 236 (e=
val.c:2078)
> 11  org.gnu.Emacs                     0x000000010011fe74 Fsetq + 132 (eval=
.c:536)
> 12  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 13  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 14  org.gnu.Emacs                     0x0000000100123088 Fwhile + 40 (eval=
.c:986)
> 15  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 16  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 17  org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval=
.c:897)
> 18  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 19  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 20  org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 8=
64 (eval.c:3033)
> 21  org.gnu.Emacs                     0x0000000100121908 apply_lambda + 28=
0 (eval.c:2915)
> 22  org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (e=
val.c:2251)
> 23  org.gnu.Emacs                     0x000000010011fe74 Fsetq + 132 (eval=
.c:536)
> 24  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 25  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 26  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 27  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 28  org.gnu.Emacs                     0x0000000100123088 Fwhile + 40 (eval=
.c:986)
> 29  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 30  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 31  org.gnu.Emacs                     0x0000000100112ec7 Fsave_restriction=
 + 71 (editfns.c:3415)
> 32  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 33  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 34  org.gnu.Emacs                     0x0000000100112e07 Fsave_excursion +=
 71 (editfns.c:941)
> 35  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 36  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 37  org.gnu.Emacs                     0x0000000100123347 Flet + 599 (eval.=
c:967)
> 38  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 39  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 40  org.gnu.Emacs                     0x0000000100112e67 Fsave_current_buf=
fer + 71 (editfns.c:954)
> 41  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 42  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 43  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 44  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 45  org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval=
.c:897)
> 46  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 47  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 48  org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 8=
64 (eval.c:3033)
> 49  org.gnu.Emacs                     0x000000010012054d Ffuncall + 525 (e=
val.c:2867)
> 50  org.gnu.Emacs                     0x0000000100120d72 Fapply + 834 (eva=
l.c:2292)
> 51  org.gnu.Emacs                     0x000000010011fd42 eval_sub + 1906 (=
eval.c:2148)
> 52  org.gnu.Emacs                     0x000000010011fe74 Fsetq + 132 (eval=
.c:536)
> 53  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 54  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 55  org.gnu.Emacs                     0x000000010011e8f7 internal_catch + 2=
47 (eval.c:1109)
> 56  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 57  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 58  org.gnu.Emacs                     0x0000000100123088 Fwhile + 40 (eval=
.c:986)
> 59  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 60  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 61  org.gnu.Emacs                     0x0000000100123088 Fwhile + 40 (eval=
.c:986)
> 62  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 63  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 64  org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval=
.c:897)
> 65  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 66  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 67  org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 8=
64 (eval.c:3033)
> 68  org.gnu.Emacs                     0x0000000100121908 apply_lambda + 28=
0 (eval.c:2915)
> 69  org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (e=
val.c:2251)
> 70  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 71  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 72  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 73  org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval=
.c:897)
> 74  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 75  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 76  org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 8=
64 (eval.c:3033)
> 77  org.gnu.Emacs                     0x0000000100121908 apply_lambda + 28=
0 (eval.c:2915)
> 78  org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (e=
val.c:2251)
> 79  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 80  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 81  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 82  org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval=
.c:897)
> 83  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 84  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 85  org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 8=
64 (eval.c:3033)
> 86  org.gnu.Emacs                     0x0000000100121908 apply_lambda + 28=
0 (eval.c:2915)
> 87  org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (e=
val.c:2251)
> 88  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 89  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 90  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 91  org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval=
.c:897)
> 92  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 93  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 94  org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 8=
64 (eval.c:3033)
> 95  org.gnu.Emacs                     0x0000000100121908 apply_lambda + 28=
0 (eval.c:2915)
> 96  org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (e=
val.c:2251)
> 97  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 98  org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 99  org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 100 org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval=
.c:897)
> 101 org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 102 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 103 org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 8=
64 (eval.c:3033)
> 104 org.gnu.Emacs                     0x0000000100121908 apply_lambda + 28=
0 (eval.c:2915)
> 105 org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (e=
val.c:2251)
> 106 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 107 org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 108 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 109 org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval=
.c:897)
> 110 org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 111 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 112 org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 8=
64 (eval.c:3033)
> 113 org.gnu.Emacs                     0x0000000100121908 apply_lambda + 28=
0 (eval.c:2915)
> 114 org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (e=
val.c:2251)
> 115 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 116 org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 117 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 118 org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval=
.c:897)
> 119 org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 120 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 121 org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 8=
64 (eval.c:3033)
> 122 org.gnu.Emacs                     0x0000000100121908 apply_lambda + 28=
0 (eval.c:2915)
> 123 org.gnu.Emacs                     0x000000010011f921 eval_sub + 849 (e=
val.c:2251)
> 124 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 125 org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 126 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 127 org.gnu.Emacs                     0x00000001001235f1 FletX + 481 (eval=
.c:897)
> 128 org.gnu.Emacs                     0x000000010011fd83 eval_sub + 1971 (=
eval.c:2124)
> 129 org.gnu.Emacs                     0x000000010011ff5d Fprogn + 45 (eval=
.c:459)
> 130 org.gnu.Emacs                     0x00000001001202e0 funcall_lambda + 8=
64 (eval.c:3033)
> 131 org.gnu.Emacs                     0x000000010012054d Ffuncall + 525 (e=
val.c:2867)
> 132 org.gnu.Emacs                     0x0000000100120de6 apply1 + 38 (eval=
.c:2581)
> 133 org.gnu.Emacs                     0x000000010011ca5f Fcall_interactive=
ly + 5247 (callint.c:378)
> 134 org.gnu.Emacs                     0x0000000100120751 Ffuncall + 1041 (=
eval.c:2813)
> 135 org.gnu.Emacs                     0x0000000100157f7b exec_byte_code + 1=
019 (bytecode.c:919)
> 136 org.gnu.Emacs                     0x000000010012054d Ffuncall + 525 (e=
val.c:2867)
> 137 org.gnu.Emacs                     0x000000010012097e call1 + 30 (eval.=
c:2606)
> 138 org.gnu.Emacs                     0x00000001000ba1c7 command_loop_1 + 1=
367 (keyboard.c:1560)
> 139 org.gnu.Emacs                     0x000000010011ea43 internal_conditio=
n_case + 259 (eval.c:1345)
> 140 org.gnu.Emacs                     0x00000001000affd7 command_loop_2 + 5=
5 (keyboard.c:1171)
> 141 org.gnu.Emacs                     0x000000010011e8f7 internal_catch + 2=
47 (eval.c:1109)
> 142 org.gnu.Emacs                     0x00000001000af45c recursive_edit_1 +=
 364 (keyboard.c:1150)
> 143 org.gnu.Emacs                     0x00000001000b1897 Frecursive_edit +=
 215 (keyboard.c:842)
> 144 org.gnu.Emacs                     0x00000001000a79b3 main + 2819 (emac=
s.c:1640)
> 145 org.gnu.Emacs                     0x00000001000015a4 start + 52
>=20
> Thread 1:  Dispatch queue: com.apple.libdispatch-manager
> 0   libSystem.B.dylib                 0x00007fff89a88c0a kevent + 10
> 1   libSystem.B.dylib                 0x00007fff89a8aadd _dispatch_mgr_inv=
oke + 154
> 2   libSystem.B.dylib                 0x00007fff89a8a7b4 _dispatch_queue_i=
nvoke + 185
> 3   libSystem.B.dylib                 0x00007fff89a8a2de _dispatch_worker_=
thread2 + 252
> 4   libSystem.B.dylib                 0x00007fff89a89c08 _pthread_wqthread=
 + 353
> 5   libSystem.B.dylib                 0x00007fff89a89aa5 start_wqthread + 1=
3
>=20
> Thread 2:
> 0   libSystem.B.dylib                 0x00007fff89ab3932 select$DARWIN_EXT=
SN + 10
> 1   org.gnu.Emacs                     0x000000010019b6b8 -[EmacsApp fd_han=
dler:] + 632 (nsterm.m:4864)
> 2   com.apple.Foundation              0x00007fff8392b204 __NSThread__main_=
_ + 1429
> 3   libSystem.B.dylib                 0x00007fff89aa8fd6 _pthread_start + 3=
31
> 4   libSystem.B.dylib                 0x00007fff89aa8e89 thread_start + 13=

>=20
> Thread 3:
> 0   libSystem.B.dylib                 0x00007fff89a89a2a __workq_kernretur=
n + 10
> 1   libSystem.B.dylib                 0x00007fff89a89e3c _pthread_wqthread=
 + 917
> 2   libSystem.B.dylib                 0x00007fff89a89aa5 start_wqthread + 1=
3
>=20
> Thread 0 crashed with X86 Thread State (64-bit):
>  rax: 0x0000000000000000  rbx: 0x0000000000000006  rcx: 0x00007fff5fbfb298=
  rdx: 0x0000000000000000
>  rdi: 0x00000000000098ff  rsi: 0x0000000000000006  rbp: 0x00007fff5fbfb2c0=
  rsp: 0x00007fff5fbfb298
>   r8: 0x00007fff70683760   r9: 0x00007fff5fbfb240  r10: 0x00007fff89ad1542=
  r11: 0xffffff80002e4730
>  r12: 0x0000000000000028  r13: 0x000000010180303a  r14: 0x000000000000000b=
  r15: 0x00000001005c3018
>  rip: 0x00007fff89abe0b6  rfl: 0x0000000000000206  cr2: 0x00000001000a5160=

>=20
> Binary Images:
>       0x100000000 -        0x100224fff +org.gnu.Emacs Version 24.3.50 (9.0=
) <0265278B-BBC8-C2D7-6848-CAE8A4F3D8DC> /Users/HOME/.0.data/.0.emacs/Emacs.=
app/Contents/MacOS/Emacs
>    0x7fff5fc00000 -     0x7fff5fc3be0f  dyld 132.1 (???) <29DECB19-0193-25=
75-D838-CF743F0400B2> /usr/lib/dyld
>    0x7fff80003000 -     0x7fff80044fef  com.apple.QD 3.36 (???) <5DC41E81-=
32C9-65B2-5528-B33E934D5BB4> /System/Library/Frameworks/ApplicationServices.=
framework/Versions/A/Frameworks/QD.framework/Versions/A/QD
>    0x7fff80045000 -     0x7fff80488fef  libLAPACK.dylib 219.0.0 (compatibi=
lity 1.0.0) <0CC61C98-FF51-67B3-F3D8-C5E430C201A9> /System/Library/Framework=
s/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/lib=
LAPACK.dylib
>    0x7fff804a1000 -     0x7fff804c1ff7  com.apple.DirectoryService.Framewo=
rk 3.6 (621.12) <A4685F06-5881-35F5-764D-C380304C1CE8> /System/Library/Frame=
works/DirectoryService.framework/Versions/A/DirectoryService
>    0x7fff804c2000 -     0x7fff804c2ff7  com.apple.Accelerate.vecLib 3.6 (v=
ecLib 3.6) <4CCE5D69-F1B3-8FD3-1483-E0271DB2CCF3> /System/Library/Frameworks=
/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/vecL=
ib
>    0x7fff804c3000 -     0x7fff804d1ff7  libkxld.dylib ??? (???) <8145A534-=
95CC-9F3C-B78B-AC9898F38C6F> /usr/lib/system/libkxld.dylib
>    0x7fff805ec000 -     0x7fff805edff7  com.apple.audio.units.AudioUnit 1.=
6.7 (1.6.7) <53299948-2554-0F8F-7501-04B34E49F6CF> /System/Library/Framework=
s/AudioUnit.framework/Versions/A/AudioUnit
>    0x7fff8075f000 -     0x7fff807f9fe7  com.apple.ApplicationServices.ATS 2=
75.16 (???) <4B70A2FC-1902-5F27-5C3B-5C78C283C6EA> /System/Library/Framework=
s/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions=
/A/ATS
>    0x7fff80800000 -     0x7fff80843ff7  libRIP.A.dylib 545.0.0 (compatibil=
ity 64.0.0) <5FF3D7FD-84D8-C5FA-D640-90BB82EC651D> /System/Library/Framework=
s/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework=
/Versions/A/Resources/libRIP.A.dylib
>    0x7fff80844000 -     0x7fff80b78fef  com.apple.CoreServices.CarbonCore 8=
61.39 (861.39) <1386A24D-DD15-5903-057E-4A224FAF580B> /System/Library/Framew=
orks/CoreServices.framework/Versions/A/Frameworks/CarbonCore.framework/Versi=
ons/A/CarbonCore
>    0x7fff80dda000 -     0x7fff80e2dff7  com.apple.HIServices 1.8.3 (???) <=
F6E0C7A7-C11D-0096-4DDA-2C77793AA6CD> /System/Library/Frameworks/Application=
Services.framework/Versions/A/Frameworks/HIServices.framework/Versions/A/HIS=
ervices
>    0x7fff810e2000 -     0x7fff810e9fff  com.apple.OpenDirectory 10.6 (10.6=
) <4FF6AD25-0916-B21C-9E88-2CC42D90EAC7> /System/Library/Frameworks/OpenDire=
ctory.framework/Versions/A/OpenDirectory
>    0x7fff81339000 -     0x7fff81637fff  com.apple.HIToolbox 1.6.5 (???) <A=
D1C18F6-51CB-7E39-35DD-F16B1EB978A8> /System/Library/Frameworks/Carbon.frame=
work/Versions/A/Frameworks/HIToolbox.framework/Versions/A/HIToolbox
>    0x7fff81638000 -     0x7fff81673fff  com.apple.AE 496.5 (496.5) <208DF3=
91-4DE6-81ED-C697-14A2930D1BC6> /System/Library/Frameworks/CoreServices.fram=
ework/Versions/A/Frameworks/AE.framework/Versions/A/AE
>    0x7fff81674000 -     0x7fff81704fff  com.apple.SearchKit 1.3.0 (1.3.0) <=
4175DC31-1506-228A-08FD-C704AC9DF642> /System/Library/Frameworks/CoreService=
s.framework/Versions/A/Frameworks/SearchKit.framework/Versions/A/SearchKit
>    0x7fff81705000 -     0x7fff81716ff7  libz.1.dylib 1.2.3 (compatibility 1=
.0.0) <97019C74-161A-3488-41EC-A6CA8738418C> /usr/lib/libz.1.dylib
>    0x7fff81717000 -     0x7fff8175fff7  libvDSP.dylib 268.0.1 (compatibili=
ty 1.0.0) <98FC4457-F405-0262-00F7-56119CA107B6> /System/Library/Frameworks/=
Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libvD=
SP.dylib
>    0x7fff81760000 -     0x7fff81800fff  com.apple.LaunchServices 362.3 (36=
2.3) <B90B7C31-FEF8-3C26-BFB3-D8A48BD2C0DA> /System/Library/Frameworks/CoreS=
ervices.framework/Versions/A/Frameworks/LaunchServices.framework/Versions/A/=
LaunchServices
>    0x7fff81801000 -     0x7fff81efdff7  com.apple.CoreGraphics 1.545.0 (??=
?) <58D597B1-EB3B-710E-0B8C-EC114D54E11B> /System/Library/Frameworks/Applica=
tionServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions=
/A/CoreGraphics
>    0x7fff81efe000 -     0x7fff81f83ff7  com.apple.print.framework.PrintCor=
e 6.3 (312.7) <CDFE82DD-D811-A091-179F-6E76069B432D> /System/Library/Framewo=
rks/ApplicationServices.framework/Versions/A/Frameworks/PrintCore.framework/=
Versions/A/PrintCore
>    0x7fff81f94000 -     0x7fff81fbbff7  libJPEG.dylib ??? (???) <46A413EA-=
4FD1-A050-2EF0-6279F3EAD581> /System/Library/Frameworks/ApplicationServices.=
framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libJP=
EG.dylib
>    0x7fff822bf000 -     0x7fff8238afff  ColorSyncDeprecated.dylib 4.6.0 (c=
ompatibility 1.0.0) <E72880D9-3B5D-D086-9266-F4F3C294619F> /System/Library/Fra=
meworks/ApplicationServices.framework/Frameworks/ColorSync.framework/Version=
s/A/Resources/ColorSyncDeprecated.dylib
>    0x7fff8238b000 -     0x7fff8238bff7  com.apple.CoreServices 44 (44) <DC=
7400FB-851E-7B8A-5BF6-6F50094302FB> /System/Library/Frameworks/CoreServices.=
framework/Versions/A/CoreServices
>    0x7fff8238c000 -     0x7fff823d5fef  libGLU.dylib ??? (???) <1C050088-4=
AB2-2BC2-62E6-C969F925A945> /System/Library/Frameworks/OpenGL.framework/Vers=
ions/A/Libraries/libGLU.dylib
>    0x7fff82406000 -     0x7fff82520fef  libGLProgrammability.dylib ??? (??=
?) <8A4B86E3-0FA7-8684-2EF2-C5F8079428DB> /System/Library/Frameworks/OpenGL.=
framework/Versions/A/Libraries/libGLProgrammability.dylib
>    0x7fff82521000 -     0x7fff827aaff7  com.apple.security 6.1.2 (55002) <=
4419AFFC-DAE7-873E-6A7D-5C9A5A4497A6> /System/Library/Frameworks/Security.fr=
amework/Versions/A/Security
>    0x7fff827ab000 -     0x7fff827bfff7  com.apple.speech.synthesis.framewo=
rk 3.10.35 (3.10.35) <621B7415-A0B9-07A7-F313-36BEEDD7B132> /System/Library/=
Frameworks/ApplicationServices.framework/Versions/A/Frameworks/SpeechSynthes=
is.framework/Versions/A/SpeechSynthesis
>    0x7fff82813000 -     0x7fff8283eff7  libxslt.1.dylib 3.24.0 (compatibil=
ity 3.0.0) <8AB4CA9E-435A-33DA-7041-904BA7FA11D5> /usr/lib/libxslt.1.dylib
>    0x7fff8283f000 -     0x7fff82854ff7  com.apple.LangAnalysis 1.6.6 (1.6.=
6) <1AE1FE8F-2204-4410-C94E-0E93B003BEDA> /System/Library/Frameworks/Applica=
tionServices.framework/Versions/A/Frameworks/LangAnalysis.framework/Versions=
/A/LangAnalysis
>    0x7fff82915000 -     0x7fff8311ffe7  libBLAS.dylib 219.0.0 (compatibili=
ty 1.0.0) <FC941ECB-71D0-FAE3-DCBF-C5A619E594B8> /System/Library/Frameworks/=
Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBL=
AS.dylib
>    0x7fff83281000 -     0x7fff836c8fef  com.apple.RawCamera.bundle 3.7.1 (=
570) <5AFA87CA-DC3D-F84E-7EA1-6EABA8807766> /System/Library/CoreServices/Raw=
Camera.bundle/Contents/MacOS/RawCamera
>    0x7fff836ce000 -     0x7fff837edfe7  libcrypto.0.9.8.dylib 0.9.8 (compa=
tibility 0.9.8) <14115D29-432B-CF02-6B24-A60CC533A09E> /usr/lib/libcrypto.0.=
9.8.dylib
>    0x7fff8391a000 -     0x7fff83b9cfe7  com.apple.Foundation 6.6.7 (751.62=
) <6F2A5BBF-6990-D561-2928-AD61E94036D9> /System/Library/Frameworks/Foundati=
on.framework/Versions/C/Foundation
>    0x7fff83bab000 -     0x7fff83bbafff  com.apple.NetFS 3.2.2 (3.2.2) <7CC=
BD70E-BF31-A7A7-DB98-230687773145> /System/Library/Frameworks/NetFS.framewor=
k/Versions/A/NetFS
>    0x7fff83bbb000 -     0x7fff83bdefff  com.apple.opencl 12.3.6 (12.3.6) <=
42FA5783-EB80-1168-4015-B8C68F55842F> /System/Library/Frameworks/OpenCL.fram=
ework/Versions/A/OpenCL
>    0x7fff83bdf000 -     0x7fff83d56fe7  com.apple.CoreFoundation 6.6.5 (55=
0.43) <31A1C118-AD96-0A11-8BDF-BD55B9940EDC> /System/Library/Frameworks/Core=
Foundation.framework/Versions/A/CoreFoundation
>    0x7fff83d85000 -     0x7fff8477fff7  com.apple.AppKit 6.6.8 (1038.36) <=
4CFBE04C-8FB3-B0EA-8DDB-7E7D10E9D251> /System/Library/Frameworks/AppKit.fram=
ework/Versions/C/AppKit
>    0x7fff84987000 -     0x7fff84a3cfe7  com.apple.ink.framework 1.3.3 (107=
) <8C36373C-5473-3A6A-4972-BC29D504250F> /System/Library/Frameworks/Carbon.f=
ramework/Versions/A/Frameworks/Ink.framework/Versions/A/Ink
>    0x7fff84a6c000 -     0x7fff84aa6fff  libcups.2.dylib 2.8.0 (compatibili=
ty 2.0.0) <539EBFDD-96D6-FB07-B128-40232C408757> /usr/lib/libcups.2.dylib
>    0x7fff84aa7000 -     0x7fff84aadff7  IOSurface ??? (???) <8E302BB2-0704=
-C6AB-BD2F-C2A6C6A2E2C3> /System/Library/Frameworks/IOSurface.framework/Vers=
ions/A/IOSurface
>    0x7fff84aae000 -     0x7fff84acbff7  libPng.dylib ??? (???) <6D8E515B-E=
0A2-2BA1-9CAC-8CB8A8B35879> /System/Library/Frameworks/ApplicationServices.f=
ramework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libPng=
.dylib
>    0x7fff84e1b000 -     0x7fff84ed8fff  com.apple.CoreServices.OSServices 3=
59.2 (359.2) <BBB8888E-18DE-5D09-3C3A-F4C029EC7886> /System/Library/Framewor=
ks/CoreServices.framework/Versions/A/Frameworks/OSServices.framework/Version=
s/A/OSServices
>    0x7fff8571a000 -     0x7fff857d3fff  libsqlite3.dylib 9.6.0 (compatibil=
ity 9.0.0) <2C5ED312-E646-9ADE-73A9-6199A2A43150> /usr/lib/libsqlite3.dylib
>    0x7fff857d4000 -     0x7fff85992ff7  com.apple.ImageIO.framework 3.0.4 (=
3.0.4) <0A4F51A1-4502-767B-8A4E-F14C6214EF88> /System/Library/Frameworks/App=
licationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/=
A/ImageIO
>    0x7fff85993000 -     0x7fff859fdfe7  libvMisc.dylib 268.0.1 (compatibil=
ity 1.0.0) <AF0EA96D-000F-8C12-B952-CB7E00566E08> /System/Library/Frameworks=
/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libv=
Misc.dylib
>    0x7fff859fe000 -     0x7fff859ffff7  com.apple.TrustEvaluationAgent 1.1=
 (1) <5952A9FA-BC2B-16EF-91A7-43902A5C07B6> /System/Library/PrivateFramework=
s/TrustEvaluationAgent.framework/Versions/A/TrustEvaluationAgent
>    0x7fff85a00000 -     0x7fff85a04ff7  libCGXType.A.dylib 545.0.0 (compat=
ibility 64.0.0) <DB710299-B4D9-3714-66F7-5D2964DE585B> /System/Library/Frame=
works/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.frame=
work/Versions/A/Resources/libCGXType.A.dylib
>    0x7fff85a05000 -     0x7fff85abbff7  libobjc.A.dylib 227.0.0 (compatibi=
lity 1.0.0) <03140531-3B2D-1EBA-DA7F-E12CC8F63969> /usr/lib/libobjc.A.dylib
>    0x7fff86be6000 -     0x7fff86beaff7  libmathCommon.A.dylib 315.0.0 (com=
patibility 1.0.0) <95718673-FEEE-B6ED-B127-BCDBDB60D4E5> /usr/lib/system/lib=
mathCommon.A.dylib
>    0x7fff86beb000 -     0x7fff86cbffe7  com.apple.CFNetwork 454.12.4 (454.=
12.4) <C83E2BA1-1818-B3E8-5334-860AD21D1C80> /System/Library/Frameworks/Core=
Services.framework/Versions/A/Frameworks/CFNetwork.framework/Versions/A/CFNe=
twork
>    0x7fff86cc0000 -     0x7fff86d15ff7  com.apple.framework.familycontrols=
 2.0.2 (2020) <8807EB96-D12D-8601-2E74-25784A0DE4FF> /System/Library/Private=
Frameworks/FamilyControls.framework/Versions/A/FamilyControls
>    0x7fff86d16000 -     0x7fff86d65ff7  com.apple.DirectoryService.Passwor=
dServerFramework 6.1 (6.1) <0731C40D-71EF-B417-C83B-54C3527A36EA> /System/Li=
brary/PrivateFrameworks/PasswordServer.framework/Versions/A/PasswordServer
>    0x7fff86d6a000 -     0x7fff86de9fe7  com.apple.audio.CoreAudio 3.2.6 (3=
.2.6) <79E256EB-43F1-C7AA-6436-124A4FFB02D0> /System/Library/Frameworks/Core=
Audio.framework/Versions/A/CoreAudio
>    0x7fff872f1000 -     0x7fff872f7ff7  com.apple.DiskArbitration 2.3 (2.3=
) <857F6E43-1EF4-7D53-351B-10DE0A8F992A> /System/Library/Frameworks/DiskArbi=
tration.framework/Versions/A/DiskArbitration
>    0x7fff874b9000 -     0x7fff87856fe7  com.apple.QuartzCore 1.6.3 (227.37=
) <16DFF6CD-EA58-CE62-A1D7-5F6CE3D066DD> /System/Library/Frameworks/QuartzCo=
re.framework/Versions/A/QuartzCore
>    0x7fff87916000 -     0x7fff879fbfef  com.apple.DesktopServices 1.5.11 (=
1.5.11) <39FAA3D2-6863-B5AB-AED9-92D878EA2438> /System/Library/PrivateFramew=
orks/DesktopServicesPriv.framework/Versions/A/DesktopServicesPriv
>    0x7fff879fc000 -     0x7fff87a21ff7  com.apple.CoreVideo 1.6.2 (45.6) <=
E138C8E7-3CB6-55A9-0A2C-B73FE63EA288> /System/Library/Frameworks/CoreVideo.f=
ramework/Versions/A/CoreVideo
>    0x7fff87a80000 -     0x7fff87a96fe7  com.apple.MultitouchSupport.framew=
ork 207.11 (207.11) <8233CE71-6F8D-8B3C-A0E1-E123F6406163> /System/Library/P=
rivateFrameworks/MultitouchSupport.framework/Versions/A/MultitouchSupport
>    0x7fff87a97000 -     0x7fff87ae6fef  libTIFF.dylib ??? (???) <1E2593D1-=
A7F6-84C6-DF8F-0B46AE445926> /System/Library/Frameworks/ApplicationServices.=
framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libTI=
FF.dylib
>    0x7fff87b0b000 -     0x7fff87b0eff7  libCoreVMClient.dylib ??? (???) <E=
03D7C81-A3DA-D44A-A88A-DDBB98AF910B> /System/Library/Frameworks/OpenGL.frame=
work/Versions/A/Libraries/libCoreVMClient.dylib
>    0x7fff87b1b000 -     0x7fff87b1bff7  com.apple.vecLib 3.6 (vecLib 3.6) <=
96FB6BAD-5568-C4E0-6FA7-02791A58B584> /System/Library/Frameworks/vecLib.fram=
ework/Versions/A/vecLib
>    0x7fff8832f000 -     0x7fff88335ff7  com.apple.CommerceCore 1.0 (9.1) <=
3691E9BA-BCF4-98C7-EFEC-78DA6825004E> /System/Library/PrivateFrameworks/Comm=
erceKit.framework/Versions/A/Frameworks/CommerceCore.framework/Versions/A/Co=
mmerceCore
>    0x7fff88336000 -     0x7fff88338fff  libRadiance.dylib ??? (???) <A9DB4=
D5D-4072-971B-DEF6-DDE645F415EA> /System/Library/Frameworks/ApplicationServi=
ces.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/l=
ibRadiance.dylib
>    0x7fff8857f000 -     0x7fff885b0fff  libGLImage.dylib ??? (???) <7F102A=
07-E4FB-9F52-B2F6-4E2D2383CA13> /System/Library/Frameworks/OpenGL.framework/=
Versions/A/Libraries/libGLImage.dylib
>    0x7fff885b1000 -     0x7fff8868efff  com.apple.vImage 4.1 (4.1) <C3F44A=
A9-6F71-0684-2686-D3BBC903F020> /System/Library/Frameworks/Accelerate.framew=
ork/Versions/A/Frameworks/vImage.framework/Versions/A/vImage
>    0x7fff8887e000 -     0x7fff888c8ff7  com.apple.Metadata 10.6.3 (507.15)=
 <2EF19055-D7AE-4D77-E589-7B71B0BC1E59> /System/Library/Frameworks/CoreServi=
ces.framework/Versions/A/Frameworks/Metadata.framework/Versions/A/Metadata
>    0x7fff88936000 -     0x7fff88969ff7  libTrueTypeScaler.dylib ??? (???) <=
69D4A213-45D2-196D-7FF8-B52A31DFD329> /System/Library/Frameworks/Application=
Services.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/=
libTrueTypeScaler.dylib
>    0x7fff889c4000 -     0x7fff88a0bff7  com.apple.coreui 2 (114) <923E33CC=
-83FC-7D35-5603-FB8F348EE34B> /System/Library/PrivateFrameworks/CoreUI.frame=
work/Versions/A/CoreUI
>    0x7fff88a0c000 -     0x7fff88a17ff7  com.apple.speech.recognition.frame=
work 3.11.1 (3.11.1) <3D65E89B-FFC6-4AAF-D5CC-104F967C8131> /System/Library/=
Frameworks/Carbon.framework/Versions/A/Frameworks/SpeechRecognition.framewor=
k/Versions/A/SpeechRecognition
>    0x7fff88a18000 -     0x7fff88a40fff  com.apple.DictionaryServices 1.1.2=
 (1.1.2) <E9269069-93FA-2B71-F9BA-FDDD23C4A65E> /System/Library/Frameworks/C=
oreServices.framework/Versions/A/Frameworks/DictionaryServices.framework/Ver=
sions/A/DictionaryServices
>    0x7fff88d64000 -     0x7fff88d7afef  libbsm.0.dylib ??? (???) <42D3023A=
-A1F7-4121-6417-FCC6B51B3E90> /usr/lib/libbsm.0.dylib
>    0x7fff88d7b000 -     0x7fff88df8fef  libstdc++.6.dylib 7.9.0 (compatibi=
lity 7.0.0) <35ECA411-2C08-FD7D-11B1-1B7A04921A5C> /usr/lib/libstdc++.6.dyli=
b
>    0x7fff88df9000 -     0x7fff88e85fef  SecurityFoundation ??? (???) <3F1F2=
727-C508-3630-E2C1-38361841FCE4> /System/Library/Frameworks/SecurityFoundati=
on.framework/Versions/A/SecurityFoundation
>    0x7fff88e86000 -     0x7fff88e87fff  liblangid.dylib ??? (???) <EA4D160=
7-2BD5-2EE2-2A3B-632EEE5A444D> /usr/lib/liblangid.dylib
>    0x7fff88f18000 -     0x7fff89056fff  com.apple.CoreData 102.1 (251) <9D=
FE798D-AA52-6A9A-924A-DA73CB94D81A> /System/Library/Frameworks/CoreData.fram=
ework/Versions/A/CoreData
>    0x7fff89096000 -     0x7fff89096ff7  com.apple.Accelerate 1.6 (Accelera=
te 1.6) <15DF8B4A-96B2-CB4E-368D-DEC7DF6B62BB> /System/Library/Frameworks/Ac=
celerate.framework/Versions/A/Accelerate
>    0x7fff89097000 -     0x7fff8909cfff  libGFXShared.dylib ??? (???) <1D0D=
3531-9561-632C-D620-1A8652BEF5BC> /System/Library/Frameworks/OpenGL.framewor=
k/Versions/A/Libraries/libGFXShared.dylib
>    0x7fff8909d000 -     0x7fff891d2fff  com.apple.audio.toolbox.AudioToolb=
ox 1.6.7 (1.6.7) <E5D7DBDB-6DDF-E6F9-C71C-86F4520EE5A3> /System/Library/Fram=
eworks/AudioToolbox.framework/Versions/A/AudioToolbox
>    0x7fff891d3000 -     0x7fff89212fef  libncurses.5.4.dylib 5.4.0 (compat=
ibility 5.4.0) <9D53BE03-6D81-D0CB-F657-4E842E69A66A> /usr/lib/libncurses.5.=
4.dylib
>    0x7fff89263000 -     0x7fff89263ff7  com.apple.ApplicationServices 38 (=
38) <10A0B9E9-4988-03D4-FC56-DDE231A02C63> /System/Library/Frameworks/Applic=
ationServices.framework/Versions/A/ApplicationServices
>    0x7fff89518000 -     0x7fff8951dfff  libGIF.dylib ??? (???) <201B8077-B=
5CC-11AA-E1B0-1D057ABE416A> /System/Library/Frameworks/ApplicationServices.f=
ramework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libGIF.=
dylib
>    0x7fff8955f000 -     0x7fff89573fff  libGL.dylib ??? (???) <2ECE3B0F-39=
E1-3938-BF27-7205C6D0358B> /System/Library/Frameworks/OpenGL.framework/Versi=
ons/A/Libraries/libGL.dylib
>    0x7fff89574000 -     0x7fff89595fff  libresolv.9.dylib 41.0.0 (compatib=
ility 1.0.0) <9F322F47-0584-CB7D-5B73-9EBD670851CD> /usr/lib/libresolv.9.dyl=
ib
>    0x7fff895d7000 -     0x7fff89687fff  edu.mit.Kerberos 6.5.11 (6.5.11) <=
085D80F5-C9DC-E252-C21B-03295E660C91> /System/Library/Frameworks/Kerberos.fr=
amework/Versions/A/Kerberos
>    0x7fff89767000 -     0x7fff897a4ff7  libFontRegistry.dylib ??? (???) <4=
C3293E2-851B-55CE-3BE3-29C425DD5DFF> /System/Library/Frameworks/ApplicationS=
ervices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/l=
ibFontRegistry.dylib
>    0x7fff897a5000 -     0x7fff89866fef  com.apple.ColorSync 4.6.6 (4.6.6) <=
BB2C5813-C61D-3CBA-A8F7-0E59E46EBEE8> /System/Library/Frameworks/Application=
Services.framework/Versions/A/Frameworks/ColorSync.framework/Versions/A/Colo=
rSync
>    0x7fff89867000 -     0x7fff89879fe7  libsasl2.2.dylib 3.15.0 (compatibi=
lity 3.0.0) <76B83C8D-8EFE-4467-0F75-275648AFED97> /usr/lib/libsasl2.2.dylib=

>    0x7fff89a61000 -     0x7fff89a6efe7  libCSync.A.dylib 545.0.0 (compatib=
ility 64.0.0) <1C35FA50-9C70-48DC-9E8D-2054F7A266B1> /System/Library/Framewo=
rks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framewo=
rk/Versions/A/Resources/libCSync.A.dylib
>    0x7fff89a6f000 -     0x7fff89c30fef  libSystem.B.dylib 125.2.11 (compat=
ibility 1.0.0) <9AB4F1D1-89DC-0E8A-DC8E-A4FE4D69DB69> /usr/lib/libSystem.B.d=
ylib
>    0x7fff89c31000 -     0x7fff89d48fef  libxml2.2.dylib 10.3.0 (compatibil=
ity 10.0.0) <1B27AFDD-DF87-2009-170E-C129E1572E8B> /usr/lib/libxml2.2.dylib
>    0x7fff89d49000 -     0x7fff89d58fef  com.apple.opengl 1.6.13 (1.6.13) <=
516098B3-4517-8A55-64BB-195CDAA5334D> /System/Library/Frameworks/OpenGL.fram=
ework/Versions/A/OpenGL
>    0x7fff89d59000 -     0x7fff89dd7ff7  com.apple.CoreText 151.10 (???) <5=
4961997-55D8-DC0F-2634-674E452D5A8E> /System/Library/Frameworks/ApplicationS=
ervices.framework/Versions/A/Frameworks/CoreText.framework/Versions/A/CoreTe=
xt
>    0x7fff89dd8000 -     0x7fff89df1fff  com.apple.CFOpenDirectory 10.6 (10=
.6) <401557B1-C6D1-7E1A-0D7E-941715C37BFA> /System/Library/Frameworks/OpenDi=
rectory.framework/Versions/A/Frameworks/CFOpenDirectory.framework/Versions/A=
/CFOpenDirectory
>    0x7fff89df2000 -     0x7fff89e3efff  libauto.dylib ??? (???) <F7221B46-=
DC4F-3153-CE61-7F52C8C293CF> /usr/lib/libauto.dylib
>    0x7fff89eb1000 -     0x7fff89f11fe7  com.apple.framework.IOKit 2.0 (???=
) <4F071EF0-8260-01E9-C641-830E582FA416> /System/Library/Frameworks/IOKit.fr=
amework/Versions/A/IOKit
>    0x7fff89f12000 -     0x7fff89f53fff  com.apple.SystemConfiguration 1.10=
.8 (1.10.2) <78D48D27-A9C4-62CA-2803-D0BBED82855A> /System/Library/Framework=
s/SystemConfiguration.framework/Versions/A/SystemConfiguration
>    0x7fff89f54000 -     0x7fff8a015fff  libFontParser.dylib ??? (???) <A00=
BB0A7-E46C-1D07-1391-194745566C7E> /System/Library/Frameworks/ApplicationSer=
vices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/lib=
FontParser.dylib
>    0x7fff8a05a000 -     0x7fff8a218fff  libicucore.A.dylib 40.0.0 (compati=
bility 1.0.0) <4274FC73-A257-3A56-4293-5968F3428854> /usr/lib/libicucore.A.d=
ylib
>    0x7fffffe00000 -     0x7fffffe01fff  libSystem.B.dylib ??? (???) <9AB4F1=
D1-89DC-0E8A-DC8E-A4FE4D69DB69> /usr/lib/libSystem.B.dylib
>=20
>=20
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;=
;;;;;;;
>=20
> In GNU Emacs 24.3.50.1 (x86_64-apple-darwin10.8.0, NS apple-appkit-1038.36=
)
> of 2014-01-01 on MP.local
> Bzr revision: 115826 eliz@HIDDEN
> Windowing system distributor `Apple', version 10.3.1038
> Configured using:
> `configure --with-ns'
>=20
> Important settings:
>  locale-coding-system: utf-8-unix
>=20
> Major mode: Text
>=20
> Minor modes in effect:
>  whitespace-mode: t
>  linum-mode: t
>  hl-line-mode: t
>  flyspell-mode: t
>  delete-selection-mode: t
>  yas-global-mode: t
>  yas-minor-mode: t
>  desktop-save-mode: t
>  tabbar-mode: t
>  highlight-parentheses-mode: t
>  font-lock-mode: t
>  blink-cursor-mode: t
>  visual-line-mode: t
>  transient-mark-mode: t
>=20
> Recent input:
> s-N s-w k <escape> x r e p o r t - e m <return> b u=20
> g s <return> <backspace> <return>
>=20
> Recent messages:
> Loading msgdb for %INBOX.Drafts...done
> Loading mail-mime-setup...done
> Updating addresses...done
> Making change-major-mode-hook buffer-local while locally let-bound!
> Type C-c C-x C-z to exit MIME mode, and type C-c C-x ? to get help.
> Saving...done
> Mark set
> [k]ill or [s]ave draft?
> Loading msgdb for +/Users/HOME/.0.data/.0.emacs/.0.mail/msgdb/imap/mail.la=
wlist.com/lawlist/INBOX.Drafts/spool...done
> *beep*
>=20
> Load-path shadows:
> /Users/HOME/.0.data/.0.emacs/elpa/flim/md4 hides /Users/HOME/.0.data/.0.em=
acs/Emacs.app/Contents/Resources/lisp/md4
> /Users/HOME/.0.data/.0.emacs/elpa/flim/hex-util hides /Users/HOME/.0.data/=
.0.emacs/Emacs.app/Contents/Resources/lisp/hex-util
> /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl hides /Users/HOME/.0.data/.0.e=
macs/Emacs.app/Contents/Resources/lisp/net/sasl
> /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-ntlm hides /Users/HOME/.0.data=
/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-ntlm
> /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-digest hides /Users/HOME/.0.da=
ta/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-digest
> /Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-cram hides /Users/HOME/.0.data=
/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-cram
> /Users/HOME/.0.data/.0.emacs/elpa/flim/ntlm hides /Users/HOME/.0.data/.0.e=
macs/Emacs.app/Contents/Resources/lisp/net/ntlm
> /Users/HOME/.0.data/.0.emacs/elpa/flim/hmac-md5 hides /Users/HOME/.0.data/=
.0.emacs/Emacs.app/Contents/Resources/lisp/net/hmac-md5
> /Users/HOME/.0.data/.0.emacs/elpa/flim/hmac-def hides /Users/HOME/.0.data/=
.0.emacs/Emacs.app/Contents/Resources/lisp/net/hmac-def
> /Users/HOME/.0.data/.0.emacs/elpa/wanderlust/rfc2368 hides /Users/HOME/.0.=
data/.0.emacs/Emacs.app/Contents/Resources/lisp/mail/rfc2368
> /Users/HOME/.0.data/.0.emacs/elpa/wanderlust/utf7 hides /Users/HOME/.0.dat=
a/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/utf7
> /Users/HOME/.0.data/.0.emacs/elpa/semi/smime hides /Users/HOME/.0.data/.0.=
emacs/Emacs.app/Contents/Resources/lisp/gnus/smime
> /Users/HOME/.0.data/.0.emacs/elpa/el-get/.dir-locals hides /Users/HOME/.0.=
data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/.dir-locals
> /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg hides /Users/HOME/.0.data/.0.em=
acs/Emacs.app/Contents/Resources/lisp/obsolete/pgg
> /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-pgp5 hides /Users/HOME/.0.data/=
.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-pgp5
> /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-pgp hides /Users/HOME/.0.data/.=
0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-pgp
> /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-parse hides /Users/HOME/.0.data=
/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-parse
> /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-gpg hides /Users/HOME/.0.data/.=
0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-gpg
> /Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-def hides /Users/HOME/.0.data/.=
0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-def
> /Users/HOME/.0.data/.0.emacs/elpa/utilities/longlines hides /Users/HOME/.0=
.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/longlines
>=20
> Features:
> (shadow emacsbug message rfc822 mml mml-sec mm-decode mm-bodies
> mm-encode mailabbrev gmm-utils mailheader modb-legacy wl-mime
> mime-edit pgg-parse pccl pccl-20 signature mime-setup mail-mime-setup
> semi-setup mime-pgp pgg-def mime-play filename mime-image
> modb-standard elmo-imap4 time-stamp server disp-table whitespace linum
> init-wl wl-demo wl-draft eword-encode wl-template sendmail mail-utils
> elmo-net elmo-cache elmo-map elmo-dop wl-news wl-address wl-thread
> wl-folder wl wl-e21 wl-spam wl-action wl-summary wl-refile wl-util pp
> elmo-flag elmo-localdir wl-message elmo-mime mmelmo-buffer mmelmo-imap
> mime-view mime-conf calist semi-def mmimap mime-parse mmbuffer
> mmgeneric elmo-multi elmo-spam elsp-header elsp-generic elmo
> elmo-signal wl-highlight wl-vars wl-version epg-config elmo-msgdb modb
> modb-generic modb-entity luna mime elmo-util emu invisible inv-23 poem
> poem-e20 poem-e20_3 utf7 eword-decode mel mime-def alist std11
> mcharset mcs-20 mcs-e20 pces pces-e20 pces-20 broken pcustom elmo-date
> elmo-vars elmo-version path-util poe pym static apel-ver product
> w3m-load mime-w3m w3m browse-url doc-view jka-compr image-mode
> w3m-hist w3m-fb bookmark-w3m w3m-ems wid-edit w3m-ccl ccl w3m-favicon
> w3m-image w3m-proc w3m-util hl-line multiple-cursors-autoloads package
> ps-print ps-def lpr bbdb-autoloads bbdb timezone flyspell ispell
> auto-save-buffers-enhanced delsel savehist fill-column-indicator
> highlight-indentation column-marker col-highlight vline
> centered-cursor-mode dired-aux dired yasnippet help-mode debug
> multiple-cursors mc-separate-operations rectangular-region-mode
> mc-mark-more thingatpt mc-cycle-cursors mc-edit-lines
> multiple-cursors-core edmacro kmacro rect saveplace init-auctex
> tex-site desktop frameset init-tabbar tabbar init-org derived cl-macs
> gv holidays hol-loaddefs org-capture org-agenda org-toodledo
> mailcap-toodledo lawlist-tls http-post-simple cl cl-loaddefs cl-lib
> url-http tls url-auth mail-parse rfc2231 rfc2047 rfc2045 ietf-drums
> url-gw url url-proxy url-privacy url-expand url-methods url-history
> url-cookie url-domsuf url-util url-parse auth-source eieio eieio-core
> gnus-util mm-util mail-prsvr password-cache url-vars mailcap json xml
> w3mexcerpt org byte-opt bytecomp byte-compile cconv advice help-fns
> org-macro org-footnote org-pcomplete pcomplete org-list org-faces
> org-entities noutline outline easy-mmode org-version ob-emacs-lisp ob
> ob-tangle org-src ob-ref ob-lob ob-table ob-keys ob-exp ob-comint
> comint ansi-color ring ob-core ob-eval org-compat org-macs
> org-loaddefs format-spec find-func cal-menu calendar cal-loaddefs
> hideshow easymenu highlight-parentheses redo time-date tooltip
> electric uniquify ediff-hook vc-hooks lisp-float-type mwheel ns-win
> tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment
> lisp-mode prog-mode register page menu-bar rfn-eshadow timer select
> scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame
> cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet
> lao korean japanese hebrew greek romanian slovak czech european
> ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook
> help simple abbrev minibuffer nadvice loaddefs button faces cus-face
> macroexp files text-properties overlay sha1 md5 base64 format env
> code-pages mule custom widget hashtable-print-readable backquote
> make-network-process cocoa ns multi-tty emacs)
>=20
>=20




Information forwarded to bug-gnu-emacs@HIDDEN:
bug#16324; Package emacs. Full text available.

Message received at submit <at> debbugs.gnu.org:


Received: (at submit) by debbugs.gnu.org; 2 Jan 2014 07:00:40 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Thu Jan 02 02:00:40 2014
Received: from localhost ([127.0.0.1]:57179 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.80)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1VycGi-0007iT-D3
	for submit <at> debbugs.gnu.org; Thu, 02 Jan 2014 02:00:39 -0500
Received: from eggs.gnu.org ([208.118.235.92]:52029)
 by debbugs.gnu.org with esmtp (Exim 4.80)
 (envelope-from <esq@HIDDEN>) id 1VycGc-0007iF-0x
 for submit <at> debbugs.gnu.org; Thu, 02 Jan 2014 02:00:33 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <esq@HIDDEN>) id 1VycGV-0007GD-6y
 for submit <at> debbugs.gnu.org; Thu, 02 Jan 2014 02:00:29 -0500
X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org
X-Spam-Level: 
X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,T_DKIM_INVALID
 autolearn=disabled version=3.3.2
Received: from lists.gnu.org ([2001:4830:134:3::11]:45343)
 by eggs.gnu.org with esmtp (Exim 4.71)
 (envelope-from <esq@HIDDEN>) id 1VycGV-0007G7-2w
 for submit <at> debbugs.gnu.org; Thu, 02 Jan 2014 02:00:23 -0500
Received: from eggs.gnu.org ([2001:4830:134:3::10]:53731)
 by lists.gnu.org with esmtp (Exim 4.71)
 (envelope-from <esq@HIDDEN>) id 1VycGO-00036q-HO
 for bug-gnu-emacs@HIDDEN; Thu, 02 Jan 2014 02:00:22 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <esq@HIDDEN>) id 1VycGI-0007Ez-2d
 for bug-gnu-emacs@HIDDEN; Thu, 02 Jan 2014 02:00:16 -0500
Received: from cobb.liquidweb.com ([50.28.13.150]:48592)
 by eggs.gnu.org with esmtp (Exim 4.71)
 (envelope-from <esq@HIDDEN>) id 1VycGH-0007Eq-Mm
 for bug-gnu-emacs@HIDDEN; Thu, 02 Jan 2014 02:00:10 -0500
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=lawlist.com;
 s=default; 
 h=Content-Type:MIME-Version:Subject:To:From:Message-ID:Date;
 bh=JdUF12io3Cew7lmWJn45CtxT+hMK+T76w3OOHCBK1bI=; 
 b=J/4Xi4UK4mCMz1mjL+6JWO3PHg2v1bVUPI7ieIiIzqs2ymTqjl+vpUf6TPkSLOQ+HIFHhPW5fa60flmy0Nf1KToSFnyQ4r+L5PC47Gt4NneJDpJeuBdTEXSRHkG6uuF4;
Received: from cpe-75-85-5-102.socal.res.rr.com ([75.85.5.102]:55886
 helo=MP.local) by cobb.liquidweb.com with esmtp (Exim 4.82)
 (envelope-from <esq@HIDDEN>) id 1VycGE-0000Gx-OS
 for bug-gnu-emacs@HIDDEN; Thu, 02 Jan 2014 02:00:07 -0500
Date: Wed, 01 Jan 2014 23:00:07 -0800
Message-ID: <m2ha9m3m2w.wl%esq@HIDDEN>
From: Keith David Bershatsky <esq@HIDDEN>
To: bug-gnu-emacs@HIDDEN
Subject: 24.3.50; Crashing on OSX 10.6.8 (built --with-ns)
User-Agent: / () / () APEL/10.8 Emacs/24.3.50 (x86_64-apple-darwin10.8.0)
 MULE/6.0 (HANACHIRUSATO)
MIME-Version: 1.0 (generated by   - "")
Content-Type: text/plain; charset=US-ASCII
X-AntiAbuse: This header was added to track abuse,
 please include it with any abuse report
X-AntiAbuse: Primary Hostname - cobb.liquidweb.com
X-AntiAbuse: Original Domain - gnu.org
X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12]
X-AntiAbuse: Sender Address Domain - lawlist.com
X-Get-Message-Sender-Via: cobb.liquidweb.com: acl_c_relayhosts_text_entry:
 lawlist|lawlist.com
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x
X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address
 (bad octet value).
X-Received-From: 2001:4830:134:3::11
X-Spam-Score: -5.0 (-----)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.15
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <http://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -5.0 (-----)

On OSX 10.6.8 (Emacs Trunk built January 1, 2014 --with-ns), I'm running a combination of a custom org-agenda in one window and a calendar (marking special dates) in the other window -- the crash occurs as I move forward by month or backward by month, but not any specific month.  The crash does not occur with Emacs Trunk built on October 5, 2013, but it does occur on Emacs Trunk versions built on December 23, 2013 and January 1, 2014.  My setup is fairly lengthy, and I don't have a specific recipe to reproduce the crash -- however, the crash ALWAYS occurs within the first 12 months in either direction.

Process:         Emacs [39167]
Path:            /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs
Identifier:      org.gnu.Emacs
Version:         Version 24.3.50 (9.0)
Code Type:       X86-64 (Native)
Parent Process:  launchd [169]

Date/Time:       2014-01-01 22:45:12.660 -0800
OS Version:      Mac OS X 10.6.8 (10K549)
Report Version:  6

Exception Type:  EXC_BAD_ACCESS (SIGABRT)
Exception Codes: KERN_INVALID_ADDRESS at 0x000000090c5bb6b8
Crashed Thread:  0  Dispatch queue: com.apple.main-thread

Thread 0 Crashed:  Dispatch queue: com.apple.main-thread
0   libSystem.B.dylib             	0x00007fff89abe0b6 __kill + 10
1   org.gnu.Emacs                 	0x00000001000a51d4 terminate_due_to_signal + 116 (emacs.c:381)
2   org.gnu.Emacs                 	0x00000001000c2fa3 0x100000000 + 798627
3   org.gnu.Emacs                 	0x0000000100193d6f ns_term_shutdown + 79 (nsterm.m:4451)
4   org.gnu.Emacs                 	0x00000001000a4152 shut_down_emacs + 194 (emacs.c:2045)
5   org.gnu.Emacs                 	0x00000001000a51ab terminate_due_to_signal + 75 (emacs.c:363)
6   org.gnu.Emacs                 	0x00000001000c303e 0x100000000 + 798782
7   org.gnu.Emacs                 	0x00000001000c34a2 deliver_fatal_thread_signal + 146 (sysdep.c:1603)
8   libSystem.B.dylib             	0x00007fff89ad01ba _sigtramp + 26
9   org.gnu.Emacs                 	0x0000000100107b40 Fgarbage_collect + 6272 (alloc.c:2975)
10  org.gnu.Emacs                 	0x000000010011f6bc eval_sub + 236 (eval.c:2078)
11  org.gnu.Emacs                 	0x000000010011fe74 Fsetq + 132 (eval.c:536)
12  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
13  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
14  org.gnu.Emacs                 	0x0000000100123088 Fwhile + 40 (eval.c:986)
15  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
16  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
17  org.gnu.Emacs                 	0x00000001001235f1 FletX + 481 (eval.c:897)
18  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
19  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
20  org.gnu.Emacs                 	0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
21  org.gnu.Emacs                 	0x0000000100121908 apply_lambda + 280 (eval.c:2915)
22  org.gnu.Emacs                 	0x000000010011f921 eval_sub + 849 (eval.c:2251)
23  org.gnu.Emacs                 	0x000000010011fe74 Fsetq + 132 (eval.c:536)
24  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
25  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
26  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
27  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
28  org.gnu.Emacs                 	0x0000000100123088 Fwhile + 40 (eval.c:986)
29  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
30  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
31  org.gnu.Emacs                 	0x0000000100112ec7 Fsave_restriction + 71 (editfns.c:3415)
32  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
33  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
34  org.gnu.Emacs                 	0x0000000100112e07 Fsave_excursion + 71 (editfns.c:941)
35  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
36  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
37  org.gnu.Emacs                 	0x0000000100123347 Flet + 599 (eval.c:967)
38  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
39  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
40  org.gnu.Emacs                 	0x0000000100112e67 Fsave_current_buffer + 71 (editfns.c:954)
41  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
42  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
43  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
44  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
45  org.gnu.Emacs                 	0x00000001001235f1 FletX + 481 (eval.c:897)
46  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
47  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
48  org.gnu.Emacs                 	0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
49  org.gnu.Emacs                 	0x000000010012054d Ffuncall + 525 (eval.c:2867)
50  org.gnu.Emacs                 	0x0000000100120d72 Fapply + 834 (eval.c:2292)
51  org.gnu.Emacs                 	0x000000010011fd42 eval_sub + 1906 (eval.c:2148)
52  org.gnu.Emacs                 	0x000000010011fe74 Fsetq + 132 (eval.c:536)
53  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
54  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
55  org.gnu.Emacs                 	0x000000010011e8f7 internal_catch + 247 (eval.c:1109)
56  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
57  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
58  org.gnu.Emacs                 	0x0000000100123088 Fwhile + 40 (eval.c:986)
59  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
60  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
61  org.gnu.Emacs                 	0x0000000100123088 Fwhile + 40 (eval.c:986)
62  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
63  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
64  org.gnu.Emacs                 	0x00000001001235f1 FletX + 481 (eval.c:897)
65  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
66  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
67  org.gnu.Emacs                 	0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
68  org.gnu.Emacs                 	0x0000000100121908 apply_lambda + 280 (eval.c:2915)
69  org.gnu.Emacs                 	0x000000010011f921 eval_sub + 849 (eval.c:2251)
70  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
71  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
72  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
73  org.gnu.Emacs                 	0x00000001001235f1 FletX + 481 (eval.c:897)
74  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
75  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
76  org.gnu.Emacs                 	0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
77  org.gnu.Emacs                 	0x0000000100121908 apply_lambda + 280 (eval.c:2915)
78  org.gnu.Emacs                 	0x000000010011f921 eval_sub + 849 (eval.c:2251)
79  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
80  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
81  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
82  org.gnu.Emacs                 	0x00000001001235f1 FletX + 481 (eval.c:897)
83  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
84  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
85  org.gnu.Emacs                 	0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
86  org.gnu.Emacs                 	0x0000000100121908 apply_lambda + 280 (eval.c:2915)
87  org.gnu.Emacs                 	0x000000010011f921 eval_sub + 849 (eval.c:2251)
88  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
89  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
90  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
91  org.gnu.Emacs                 	0x00000001001235f1 FletX + 481 (eval.c:897)
92  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
93  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
94  org.gnu.Emacs                 	0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
95  org.gnu.Emacs                 	0x0000000100121908 apply_lambda + 280 (eval.c:2915)
96  org.gnu.Emacs                 	0x000000010011f921 eval_sub + 849 (eval.c:2251)
97  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
98  org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
99  org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
100 org.gnu.Emacs                 	0x00000001001235f1 FletX + 481 (eval.c:897)
101 org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
102 org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
103 org.gnu.Emacs                 	0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
104 org.gnu.Emacs                 	0x0000000100121908 apply_lambda + 280 (eval.c:2915)
105 org.gnu.Emacs                 	0x000000010011f921 eval_sub + 849 (eval.c:2251)
106 org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
107 org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
108 org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
109 org.gnu.Emacs                 	0x00000001001235f1 FletX + 481 (eval.c:897)
110 org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
111 org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
112 org.gnu.Emacs                 	0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
113 org.gnu.Emacs                 	0x0000000100121908 apply_lambda + 280 (eval.c:2915)
114 org.gnu.Emacs                 	0x000000010011f921 eval_sub + 849 (eval.c:2251)
115 org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
116 org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
117 org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
118 org.gnu.Emacs                 	0x00000001001235f1 FletX + 481 (eval.c:897)
119 org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
120 org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
121 org.gnu.Emacs                 	0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
122 org.gnu.Emacs                 	0x0000000100121908 apply_lambda + 280 (eval.c:2915)
123 org.gnu.Emacs                 	0x000000010011f921 eval_sub + 849 (eval.c:2251)
124 org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
125 org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
126 org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
127 org.gnu.Emacs                 	0x00000001001235f1 FletX + 481 (eval.c:897)
128 org.gnu.Emacs                 	0x000000010011fd83 eval_sub + 1971 (eval.c:2124)
129 org.gnu.Emacs                 	0x000000010011ff5d Fprogn + 45 (eval.c:459)
130 org.gnu.Emacs                 	0x00000001001202e0 funcall_lambda + 864 (eval.c:3033)
131 org.gnu.Emacs                 	0x000000010012054d Ffuncall + 525 (eval.c:2867)
132 org.gnu.Emacs                 	0x0000000100120de6 apply1 + 38 (eval.c:2581)
133 org.gnu.Emacs                 	0x000000010011ca5f Fcall_interactively + 5247 (callint.c:378)
134 org.gnu.Emacs                 	0x0000000100120751 Ffuncall + 1041 (eval.c:2813)
135 org.gnu.Emacs                 	0x0000000100157f7b exec_byte_code + 1019 (bytecode.c:919)
136 org.gnu.Emacs                 	0x000000010012054d Ffuncall + 525 (eval.c:2867)
137 org.gnu.Emacs                 	0x000000010012097e call1 + 30 (eval.c:2606)
138 org.gnu.Emacs                 	0x00000001000ba1c7 command_loop_1 + 1367 (keyboard.c:1560)
139 org.gnu.Emacs                 	0x000000010011ea43 internal_condition_case + 259 (eval.c:1345)
140 org.gnu.Emacs                 	0x00000001000affd7 command_loop_2 + 55 (keyboard.c:1171)
141 org.gnu.Emacs                 	0x000000010011e8f7 internal_catch + 247 (eval.c:1109)
142 org.gnu.Emacs                 	0x00000001000af45c recursive_edit_1 + 364 (keyboard.c:1150)
143 org.gnu.Emacs                 	0x00000001000b1897 Frecursive_edit + 215 (keyboard.c:842)
144 org.gnu.Emacs                 	0x00000001000a79b3 main + 2819 (emacs.c:1640)
145 org.gnu.Emacs                 	0x00000001000015a4 start + 52

Thread 1:  Dispatch queue: com.apple.libdispatch-manager
0   libSystem.B.dylib             	0x00007fff89a88c0a kevent + 10
1   libSystem.B.dylib             	0x00007fff89a8aadd _dispatch_mgr_invoke + 154
2   libSystem.B.dylib             	0x00007fff89a8a7b4 _dispatch_queue_invoke + 185
3   libSystem.B.dylib             	0x00007fff89a8a2de _dispatch_worker_thread2 + 252
4   libSystem.B.dylib             	0x00007fff89a89c08 _pthread_wqthread + 353
5   libSystem.B.dylib             	0x00007fff89a89aa5 start_wqthread + 13

Thread 2:
0   libSystem.B.dylib             	0x00007fff89ab3932 select$DARWIN_EXTSN + 10
1   org.gnu.Emacs                 	0x000000010019b6b8 -[EmacsApp fd_handler:] + 632 (nsterm.m:4864)
2   com.apple.Foundation          	0x00007fff8392b204 __NSThread__main__ + 1429
3   libSystem.B.dylib             	0x00007fff89aa8fd6 _pthread_start + 331
4   libSystem.B.dylib             	0x00007fff89aa8e89 thread_start + 13

Thread 3:
0   libSystem.B.dylib             	0x00007fff89a89a2a __workq_kernreturn + 10
1   libSystem.B.dylib             	0x00007fff89a89e3c _pthread_wqthread + 917
2   libSystem.B.dylib             	0x00007fff89a89aa5 start_wqthread + 13

Thread 0 crashed with X86 Thread State (64-bit):
  rax: 0x0000000000000000  rbx: 0x0000000000000006  rcx: 0x00007fff5fbfb298  rdx: 0x0000000000000000
  rdi: 0x00000000000098ff  rsi: 0x0000000000000006  rbp: 0x00007fff5fbfb2c0  rsp: 0x00007fff5fbfb298
   r8: 0x00007fff70683760   r9: 0x00007fff5fbfb240  r10: 0x00007fff89ad1542  r11: 0xffffff80002e4730
  r12: 0x0000000000000028  r13: 0x000000010180303a  r14: 0x000000000000000b  r15: 0x00000001005c3018
  rip: 0x00007fff89abe0b6  rfl: 0x0000000000000206  cr2: 0x00000001000a5160

Binary Images:
       0x100000000 -        0x100224fff +org.gnu.Emacs Version 24.3.50 (9.0) <0265278B-BBC8-C2D7-6848-CAE8A4F3D8DC> /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/MacOS/Emacs
    0x7fff5fc00000 -     0x7fff5fc3be0f  dyld 132.1 (???) <29DECB19-0193-2575-D838-CF743F0400B2> /usr/lib/dyld
    0x7fff80003000 -     0x7fff80044fef  com.apple.QD 3.36 (???) <5DC41E81-32C9-65B2-5528-B33E934D5BB4> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/QD.framework/Versions/A/QD
    0x7fff80045000 -     0x7fff80488fef  libLAPACK.dylib 219.0.0 (compatibility 1.0.0) <0CC61C98-FF51-67B3-F3D8-C5E430C201A9> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libLAPACK.dylib
    0x7fff804a1000 -     0x7fff804c1ff7  com.apple.DirectoryService.Framework 3.6 (621.12) <A4685F06-5881-35F5-764D-C380304C1CE8> /System/Library/Frameworks/DirectoryService.framework/Versions/A/DirectoryService
    0x7fff804c2000 -     0x7fff804c2ff7  com.apple.Accelerate.vecLib 3.6 (vecLib 3.6) <4CCE5D69-F1B3-8FD3-1483-E0271DB2CCF3> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/vecLib
    0x7fff804c3000 -     0x7fff804d1ff7  libkxld.dylib ??? (???) <8145A534-95CC-9F3C-B78B-AC9898F38C6F> /usr/lib/system/libkxld.dylib
    0x7fff805ec000 -     0x7fff805edff7  com.apple.audio.units.AudioUnit 1.6.7 (1.6.7) <53299948-2554-0F8F-7501-04B34E49F6CF> /System/Library/Frameworks/AudioUnit.framework/Versions/A/AudioUnit
    0x7fff8075f000 -     0x7fff807f9fe7  com.apple.ApplicationServices.ATS 275.16 (???) <4B70A2FC-1902-5F27-5C3B-5C78C283C6EA> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/ATS
    0x7fff80800000 -     0x7fff80843ff7  libRIP.A.dylib 545.0.0 (compatibility 64.0.0) <5FF3D7FD-84D8-C5FA-D640-90BB82EC651D> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/Resources/libRIP.A.dylib
    0x7fff80844000 -     0x7fff80b78fef  com.apple.CoreServices.CarbonCore 861.39 (861.39) <1386A24D-DD15-5903-057E-4A224FAF580B> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/CarbonCore.framework/Versions/A/CarbonCore
    0x7fff80dda000 -     0x7fff80e2dff7  com.apple.HIServices 1.8.3 (???) <F6E0C7A7-C11D-0096-4DDA-2C77793AA6CD> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/HIServices.framework/Versions/A/HIServices
    0x7fff810e2000 -     0x7fff810e9fff  com.apple.OpenDirectory 10.6 (10.6) <4FF6AD25-0916-B21C-9E88-2CC42D90EAC7> /System/Library/Frameworks/OpenDirectory.framework/Versions/A/OpenDirectory
    0x7fff81339000 -     0x7fff81637fff  com.apple.HIToolbox 1.6.5 (???) <AD1C18F6-51CB-7E39-35DD-F16B1EB978A8> /System/Library/Frameworks/Carbon.framework/Versions/A/Frameworks/HIToolbox.framework/Versions/A/HIToolbox
    0x7fff81638000 -     0x7fff81673fff  com.apple.AE 496.5 (496.5) <208DF391-4DE6-81ED-C697-14A2930D1BC6> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/AE.framework/Versions/A/AE
    0x7fff81674000 -     0x7fff81704fff  com.apple.SearchKit 1.3.0 (1.3.0) <4175DC31-1506-228A-08FD-C704AC9DF642> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/SearchKit.framework/Versions/A/SearchKit
    0x7fff81705000 -     0x7fff81716ff7  libz.1.dylib 1.2.3 (compatibility 1.0.0) <97019C74-161A-3488-41EC-A6CA8738418C> /usr/lib/libz.1.dylib
    0x7fff81717000 -     0x7fff8175fff7  libvDSP.dylib 268.0.1 (compatibility 1.0.0) <98FC4457-F405-0262-00F7-56119CA107B6> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libvDSP.dylib
    0x7fff81760000 -     0x7fff81800fff  com.apple.LaunchServices 362.3 (362.3) <B90B7C31-FEF8-3C26-BFB3-D8A48BD2C0DA> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/LaunchServices.framework/Versions/A/LaunchServices
    0x7fff81801000 -     0x7fff81efdff7  com.apple.CoreGraphics 1.545.0 (???) <58D597B1-EB3B-710E-0B8C-EC114D54E11B> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/CoreGraphics
    0x7fff81efe000 -     0x7fff81f83ff7  com.apple.print.framework.PrintCore 6.3 (312.7) <CDFE82DD-D811-A091-179F-6E76069B432D> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/PrintCore.framework/Versions/A/PrintCore
    0x7fff81f94000 -     0x7fff81fbbff7  libJPEG.dylib ??? (???) <46A413EA-4FD1-A050-2EF0-6279F3EAD581> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libJPEG.dylib
    0x7fff822bf000 -     0x7fff8238afff  ColorSyncDeprecated.dylib 4.6.0 (compatibility 1.0.0) <E72880D9-3B5D-D086-9266-F4F3C294619F> /System/Library/Frameworks/ApplicationServices.framework/Frameworks/ColorSync.framework/Versions/A/Resources/ColorSyncDeprecated.dylib
    0x7fff8238b000 -     0x7fff8238bff7  com.apple.CoreServices 44 (44) <DC7400FB-851E-7B8A-5BF6-6F50094302FB> /System/Library/Frameworks/CoreServices.framework/Versions/A/CoreServices
    0x7fff8238c000 -     0x7fff823d5fef  libGLU.dylib ??? (???) <1C050088-4AB2-2BC2-62E6-C969F925A945> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLU.dylib
    0x7fff82406000 -     0x7fff82520fef  libGLProgrammability.dylib ??? (???) <8A4B86E3-0FA7-8684-2EF2-C5F8079428DB> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLProgrammability.dylib
    0x7fff82521000 -     0x7fff827aaff7  com.apple.security 6.1.2 (55002) <4419AFFC-DAE7-873E-6A7D-5C9A5A4497A6> /System/Library/Frameworks/Security.framework/Versions/A/Security
    0x7fff827ab000 -     0x7fff827bfff7  com.apple.speech.synthesis.framework 3.10.35 (3.10.35) <621B7415-A0B9-07A7-F313-36BEEDD7B132> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/SpeechSynthesis.framework/Versions/A/SpeechSynthesis
    0x7fff82813000 -     0x7fff8283eff7  libxslt.1.dylib 3.24.0 (compatibility 3.0.0) <8AB4CA9E-435A-33DA-7041-904BA7FA11D5> /usr/lib/libxslt.1.dylib
    0x7fff8283f000 -     0x7fff82854ff7  com.apple.LangAnalysis 1.6.6 (1.6.6) <1AE1FE8F-2204-4410-C94E-0E93B003BEDA> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/LangAnalysis.framework/Versions/A/LangAnalysis
    0x7fff82915000 -     0x7fff8311ffe7  libBLAS.dylib 219.0.0 (compatibility 1.0.0) <FC941ECB-71D0-FAE3-DCBF-C5A619E594B8> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
    0x7fff83281000 -     0x7fff836c8fef  com.apple.RawCamera.bundle 3.7.1 (570) <5AFA87CA-DC3D-F84E-7EA1-6EABA8807766> /System/Library/CoreServices/RawCamera.bundle/Contents/MacOS/RawCamera
    0x7fff836ce000 -     0x7fff837edfe7  libcrypto.0.9.8.dylib 0.9.8 (compatibility 0.9.8) <14115D29-432B-CF02-6B24-A60CC533A09E> /usr/lib/libcrypto.0.9.8.dylib
    0x7fff8391a000 -     0x7fff83b9cfe7  com.apple.Foundation 6.6.7 (751.62) <6F2A5BBF-6990-D561-2928-AD61E94036D9> /System/Library/Frameworks/Foundation.framework/Versions/C/Foundation
    0x7fff83bab000 -     0x7fff83bbafff  com.apple.NetFS 3.2.2 (3.2.2) <7CCBD70E-BF31-A7A7-DB98-230687773145> /System/Library/Frameworks/NetFS.framework/Versions/A/NetFS
    0x7fff83bbb000 -     0x7fff83bdefff  com.apple.opencl 12.3.6 (12.3.6) <42FA5783-EB80-1168-4015-B8C68F55842F> /System/Library/Frameworks/OpenCL.framework/Versions/A/OpenCL
    0x7fff83bdf000 -     0x7fff83d56fe7  com.apple.CoreFoundation 6.6.5 (550.43) <31A1C118-AD96-0A11-8BDF-BD55B9940EDC> /System/Library/Frameworks/CoreFoundation.framework/Versions/A/CoreFoundation
    0x7fff83d85000 -     0x7fff8477fff7  com.apple.AppKit 6.6.8 (1038.36) <4CFBE04C-8FB3-B0EA-8DDB-7E7D10E9D251> /System/Library/Frameworks/AppKit.framework/Versions/C/AppKit
    0x7fff84987000 -     0x7fff84a3cfe7  com.apple.ink.framework 1.3.3 (107) <8C36373C-5473-3A6A-4972-BC29D504250F> /System/Library/Frameworks/Carbon.framework/Versions/A/Frameworks/Ink.framework/Versions/A/Ink
    0x7fff84a6c000 -     0x7fff84aa6fff  libcups.2.dylib 2.8.0 (compatibility 2.0.0) <539EBFDD-96D6-FB07-B128-40232C408757> /usr/lib/libcups.2.dylib
    0x7fff84aa7000 -     0x7fff84aadff7  IOSurface ??? (???) <8E302BB2-0704-C6AB-BD2F-C2A6C6A2E2C3> /System/Library/Frameworks/IOSurface.framework/Versions/A/IOSurface
    0x7fff84aae000 -     0x7fff84acbff7  libPng.dylib ??? (???) <6D8E515B-E0A2-2BA1-9CAC-8CB8A8B35879> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libPng.dylib
    0x7fff84e1b000 -     0x7fff84ed8fff  com.apple.CoreServices.OSServices 359.2 (359.2) <BBB8888E-18DE-5D09-3C3A-F4C029EC7886> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/OSServices.framework/Versions/A/OSServices
    0x7fff8571a000 -     0x7fff857d3fff  libsqlite3.dylib 9.6.0 (compatibility 9.0.0) <2C5ED312-E646-9ADE-73A9-6199A2A43150> /usr/lib/libsqlite3.dylib
    0x7fff857d4000 -     0x7fff85992ff7  com.apple.ImageIO.framework 3.0.4 (3.0.4) <0A4F51A1-4502-767B-8A4E-F14C6214EF88> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/ImageIO
    0x7fff85993000 -     0x7fff859fdfe7  libvMisc.dylib 268.0.1 (compatibility 1.0.0) <AF0EA96D-000F-8C12-B952-CB7E00566E08> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libvMisc.dylib
    0x7fff859fe000 -     0x7fff859ffff7  com.apple.TrustEvaluationAgent 1.1 (1) <5952A9FA-BC2B-16EF-91A7-43902A5C07B6> /System/Library/PrivateFrameworks/TrustEvaluationAgent.framework/Versions/A/TrustEvaluationAgent
    0x7fff85a00000 -     0x7fff85a04ff7  libCGXType.A.dylib 545.0.0 (compatibility 64.0.0) <DB710299-B4D9-3714-66F7-5D2964DE585B> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/Resources/libCGXType.A.dylib
    0x7fff85a05000 -     0x7fff85abbff7  libobjc.A.dylib 227.0.0 (compatibility 1.0.0) <03140531-3B2D-1EBA-DA7F-E12CC8F63969> /usr/lib/libobjc.A.dylib
    0x7fff86be6000 -     0x7fff86beaff7  libmathCommon.A.dylib 315.0.0 (compatibility 1.0.0) <95718673-FEEE-B6ED-B127-BCDBDB60D4E5> /usr/lib/system/libmathCommon.A.dylib
    0x7fff86beb000 -     0x7fff86cbffe7  com.apple.CFNetwork 454.12.4 (454.12.4) <C83E2BA1-1818-B3E8-5334-860AD21D1C80> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/CFNetwork.framework/Versions/A/CFNetwork
    0x7fff86cc0000 -     0x7fff86d15ff7  com.apple.framework.familycontrols 2.0.2 (2020) <8807EB96-D12D-8601-2E74-25784A0DE4FF> /System/Library/PrivateFrameworks/FamilyControls.framework/Versions/A/FamilyControls
    0x7fff86d16000 -     0x7fff86d65ff7  com.apple.DirectoryService.PasswordServerFramework 6.1 (6.1) <0731C40D-71EF-B417-C83B-54C3527A36EA> /System/Library/PrivateFrameworks/PasswordServer.framework/Versions/A/PasswordServer
    0x7fff86d6a000 -     0x7fff86de9fe7  com.apple.audio.CoreAudio 3.2.6 (3.2.6) <79E256EB-43F1-C7AA-6436-124A4FFB02D0> /System/Library/Frameworks/CoreAudio.framework/Versions/A/CoreAudio
    0x7fff872f1000 -     0x7fff872f7ff7  com.apple.DiskArbitration 2.3 (2.3) <857F6E43-1EF4-7D53-351B-10DE0A8F992A> /System/Library/Frameworks/DiskArbitration.framework/Versions/A/DiskArbitration
    0x7fff874b9000 -     0x7fff87856fe7  com.apple.QuartzCore 1.6.3 (227.37) <16DFF6CD-EA58-CE62-A1D7-5F6CE3D066DD> /System/Library/Frameworks/QuartzCore.framework/Versions/A/QuartzCore
    0x7fff87916000 -     0x7fff879fbfef  com.apple.DesktopServices 1.5.11 (1.5.11) <39FAA3D2-6863-B5AB-AED9-92D878EA2438> /System/Library/PrivateFrameworks/DesktopServicesPriv.framework/Versions/A/DesktopServicesPriv
    0x7fff879fc000 -     0x7fff87a21ff7  com.apple.CoreVideo 1.6.2 (45.6) <E138C8E7-3CB6-55A9-0A2C-B73FE63EA288> /System/Library/Frameworks/CoreVideo.framework/Versions/A/CoreVideo
    0x7fff87a80000 -     0x7fff87a96fe7  com.apple.MultitouchSupport.framework 207.11 (207.11) <8233CE71-6F8D-8B3C-A0E1-E123F6406163> /System/Library/PrivateFrameworks/MultitouchSupport.framework/Versions/A/MultitouchSupport
    0x7fff87a97000 -     0x7fff87ae6fef  libTIFF.dylib ??? (???) <1E2593D1-A7F6-84C6-DF8F-0B46AE445926> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libTIFF.dylib
    0x7fff87b0b000 -     0x7fff87b0eff7  libCoreVMClient.dylib ??? (???) <E03D7C81-A3DA-D44A-A88A-DDBB98AF910B> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libCoreVMClient.dylib
    0x7fff87b1b000 -     0x7fff87b1bff7  com.apple.vecLib 3.6 (vecLib 3.6) <96FB6BAD-5568-C4E0-6FA7-02791A58B584> /System/Library/Frameworks/vecLib.framework/Versions/A/vecLib
    0x7fff8832f000 -     0x7fff88335ff7  com.apple.CommerceCore 1.0 (9.1) <3691E9BA-BCF4-98C7-EFEC-78DA6825004E> /System/Library/PrivateFrameworks/CommerceKit.framework/Versions/A/Frameworks/CommerceCore.framework/Versions/A/CommerceCore
    0x7fff88336000 -     0x7fff88338fff  libRadiance.dylib ??? (???) <A9DB4D5D-4072-971B-DEF6-DDE645F415EA> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libRadiance.dylib
    0x7fff8857f000 -     0x7fff885b0fff  libGLImage.dylib ??? (???) <7F102A07-E4FB-9F52-B2F6-4E2D2383CA13> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLImage.dylib
    0x7fff885b1000 -     0x7fff8868efff  com.apple.vImage 4.1 (4.1) <C3F44AA9-6F71-0684-2686-D3BBC903F020> /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vImage.framework/Versions/A/vImage
    0x7fff8887e000 -     0x7fff888c8ff7  com.apple.Metadata 10.6.3 (507.15) <2EF19055-D7AE-4D77-E589-7B71B0BC1E59> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/Metadata.framework/Versions/A/Metadata
    0x7fff88936000 -     0x7fff88969ff7  libTrueTypeScaler.dylib ??? (???) <69D4A213-45D2-196D-7FF8-B52A31DFD329> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/libTrueTypeScaler.dylib
    0x7fff889c4000 -     0x7fff88a0bff7  com.apple.coreui 2 (114) <923E33CC-83FC-7D35-5603-FB8F348EE34B> /System/Library/PrivateFrameworks/CoreUI.framework/Versions/A/CoreUI
    0x7fff88a0c000 -     0x7fff88a17ff7  com.apple.speech.recognition.framework 3.11.1 (3.11.1) <3D65E89B-FFC6-4AAF-D5CC-104F967C8131> /System/Library/Frameworks/Carbon.framework/Versions/A/Frameworks/SpeechRecognition.framework/Versions/A/SpeechRecognition
    0x7fff88a18000 -     0x7fff88a40fff  com.apple.DictionaryServices 1.1.2 (1.1.2) <E9269069-93FA-2B71-F9BA-FDDD23C4A65E> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/DictionaryServices.framework/Versions/A/DictionaryServices
    0x7fff88d64000 -     0x7fff88d7afef  libbsm.0.dylib ??? (???) <42D3023A-A1F7-4121-6417-FCC6B51B3E90> /usr/lib/libbsm.0.dylib
    0x7fff88d7b000 -     0x7fff88df8fef  libstdc++.6.dylib 7.9.0 (compatibility 7.0.0) <35ECA411-2C08-FD7D-11B1-1B7A04921A5C> /usr/lib/libstdc++.6.dylib
    0x7fff88df9000 -     0x7fff88e85fef  SecurityFoundation ??? (???) <3F1F2727-C508-3630-E2C1-38361841FCE4> /System/Library/Frameworks/SecurityFoundation.framework/Versions/A/SecurityFoundation
    0x7fff88e86000 -     0x7fff88e87fff  liblangid.dylib ??? (???) <EA4D1607-2BD5-2EE2-2A3B-632EEE5A444D> /usr/lib/liblangid.dylib
    0x7fff88f18000 -     0x7fff89056fff  com.apple.CoreData 102.1 (251) <9DFE798D-AA52-6A9A-924A-DA73CB94D81A> /System/Library/Frameworks/CoreData.framework/Versions/A/CoreData
    0x7fff89096000 -     0x7fff89096ff7  com.apple.Accelerate 1.6 (Accelerate 1.6) <15DF8B4A-96B2-CB4E-368D-DEC7DF6B62BB> /System/Library/Frameworks/Accelerate.framework/Versions/A/Accelerate
    0x7fff89097000 -     0x7fff8909cfff  libGFXShared.dylib ??? (???) <1D0D3531-9561-632C-D620-1A8652BEF5BC> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGFXShared.dylib
    0x7fff8909d000 -     0x7fff891d2fff  com.apple.audio.toolbox.AudioToolbox 1.6.7 (1.6.7) <E5D7DBDB-6DDF-E6F9-C71C-86F4520EE5A3> /System/Library/Frameworks/AudioToolbox.framework/Versions/A/AudioToolbox
    0x7fff891d3000 -     0x7fff89212fef  libncurses.5.4.dylib 5.4.0 (compatibility 5.4.0) <9D53BE03-6D81-D0CB-F657-4E842E69A66A> /usr/lib/libncurses.5.4.dylib
    0x7fff89263000 -     0x7fff89263ff7  com.apple.ApplicationServices 38 (38) <10A0B9E9-4988-03D4-FC56-DDE231A02C63> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/ApplicationServices
    0x7fff89518000 -     0x7fff8951dfff  libGIF.dylib ??? (???) <201B8077-B5CC-11AA-E1B0-1D057ABE416A> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ImageIO.framework/Versions/A/Resources/libGIF.dylib
    0x7fff8955f000 -     0x7fff89573fff  libGL.dylib ??? (???) <2ECE3B0F-39E1-3938-BF27-7205C6D0358B> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGL.dylib
    0x7fff89574000 -     0x7fff89595fff  libresolv.9.dylib 41.0.0 (compatibility 1.0.0) <9F322F47-0584-CB7D-5B73-9EBD670851CD> /usr/lib/libresolv.9.dylib
    0x7fff895d7000 -     0x7fff89687fff  edu.mit.Kerberos 6.5.11 (6.5.11) <085D80F5-C9DC-E252-C21B-03295E660C91> /System/Library/Frameworks/Kerberos.framework/Versions/A/Kerberos
    0x7fff89767000 -     0x7fff897a4ff7  libFontRegistry.dylib ??? (???) <4C3293E2-851B-55CE-3BE3-29C425DD5DFF> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/libFontRegistry.dylib
    0x7fff897a5000 -     0x7fff89866fef  com.apple.ColorSync 4.6.6 (4.6.6) <BB2C5813-C61D-3CBA-A8F7-0E59E46EBEE8> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ColorSync.framework/Versions/A/ColorSync
    0x7fff89867000 -     0x7fff89879fe7  libsasl2.2.dylib 3.15.0 (compatibility 3.0.0) <76B83C8D-8EFE-4467-0F75-275648AFED97> /usr/lib/libsasl2.2.dylib
    0x7fff89a61000 -     0x7fff89a6efe7  libCSync.A.dylib 545.0.0 (compatibility 64.0.0) <1C35FA50-9C70-48DC-9E8D-2054F7A266B1> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreGraphics.framework/Versions/A/Resources/libCSync.A.dylib
    0x7fff89a6f000 -     0x7fff89c30fef  libSystem.B.dylib 125.2.11 (compatibility 1.0.0) <9AB4F1D1-89DC-0E8A-DC8E-A4FE4D69DB69> /usr/lib/libSystem.B.dylib
    0x7fff89c31000 -     0x7fff89d48fef  libxml2.2.dylib 10.3.0 (compatibility 10.0.0) <1B27AFDD-DF87-2009-170E-C129E1572E8B> /usr/lib/libxml2.2.dylib
    0x7fff89d49000 -     0x7fff89d58fef  com.apple.opengl 1.6.13 (1.6.13) <516098B3-4517-8A55-64BB-195CDAA5334D> /System/Library/Frameworks/OpenGL.framework/Versions/A/OpenGL
    0x7fff89d59000 -     0x7fff89dd7ff7  com.apple.CoreText 151.10 (???) <54961997-55D8-DC0F-2634-674E452D5A8E> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/CoreText.framework/Versions/A/CoreText
    0x7fff89dd8000 -     0x7fff89df1fff  com.apple.CFOpenDirectory 10.6 (10.6) <401557B1-C6D1-7E1A-0D7E-941715C37BFA> /System/Library/Frameworks/OpenDirectory.framework/Versions/A/Frameworks/CFOpenDirectory.framework/Versions/A/CFOpenDirectory
    0x7fff89df2000 -     0x7fff89e3efff  libauto.dylib ??? (???) <F7221B46-DC4F-3153-CE61-7F52C8C293CF> /usr/lib/libauto.dylib
    0x7fff89eb1000 -     0x7fff89f11fe7  com.apple.framework.IOKit 2.0 (???) <4F071EF0-8260-01E9-C641-830E582FA416> /System/Library/Frameworks/IOKit.framework/Versions/A/IOKit
    0x7fff89f12000 -     0x7fff89f53fff  com.apple.SystemConfiguration 1.10.8 (1.10.2) <78D48D27-A9C4-62CA-2803-D0BBED82855A> /System/Library/Frameworks/SystemConfiguration.framework/Versions/A/SystemConfiguration
    0x7fff89f54000 -     0x7fff8a015fff  libFontParser.dylib ??? (???) <A00BB0A7-E46C-1D07-1391-194745566C7E> /System/Library/Frameworks/ApplicationServices.framework/Versions/A/Frameworks/ATS.framework/Versions/A/Resources/libFontParser.dylib
    0x7fff8a05a000 -     0x7fff8a218fff  libicucore.A.dylib 40.0.0 (compatibility 1.0.0) <4274FC73-A257-3A56-4293-5968F3428854> /usr/lib/libicucore.A.dylib
    0x7fffffe00000 -     0x7fffffe01fff  libSystem.B.dylib ??? (???) <9AB4F1D1-89DC-0E8A-DC8E-A4FE4D69DB69> /usr/lib/libSystem.B.dylib


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

In GNU Emacs 24.3.50.1 (x86_64-apple-darwin10.8.0, NS apple-appkit-1038.36)
 of 2014-01-01 on MP.local
Bzr revision: 115826 eliz@HIDDEN
Windowing system distributor `Apple', version 10.3.1038
Configured using:
 `configure --with-ns'

Important settings:
  locale-coding-system: utf-8-unix

Major mode: Text

Minor modes in effect:
  whitespace-mode: t
  linum-mode: t
  hl-line-mode: t
  flyspell-mode: t
  delete-selection-mode: t
  yas-global-mode: t
  yas-minor-mode: t
  desktop-save-mode: t
  tabbar-mode: t
  highlight-parentheses-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  visual-line-mode: t
  transient-mark-mode: t

Recent input:
s-N s-w k <escape> x r e p o r t - e m <return> b u 
g s <return> <backspace> <return>

Recent messages:
Loading msgdb for %INBOX.Drafts...done
Loading mail-mime-setup...done
Updating addresses...done
Making change-major-mode-hook buffer-local while locally let-bound!
Type C-c C-x C-z to exit MIME mode, and type C-c C-x ? to get help.
Saving...done
Mark set
[k]ill or [s]ave draft?
Loading msgdb for +/Users/HOME/.0.data/.0.emacs/.0.mail/msgdb/imap/mail.lawlist.com/lawlist/INBOX.Drafts/spool...done
*beep*

Load-path shadows:
/Users/HOME/.0.data/.0.emacs/elpa/flim/md4 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/md4
/Users/HOME/.0.data/.0.emacs/elpa/flim/hex-util hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/hex-util
/Users/HOME/.0.data/.0.emacs/elpa/flim/sasl hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl
/Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-ntlm hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-ntlm
/Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-digest hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-digest
/Users/HOME/.0.data/.0.emacs/elpa/flim/sasl-cram hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-cram
/Users/HOME/.0.data/.0.emacs/elpa/flim/ntlm hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/ntlm
/Users/HOME/.0.data/.0.emacs/elpa/flim/hmac-md5 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/hmac-md5
/Users/HOME/.0.data/.0.emacs/elpa/flim/hmac-def hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/hmac-def
/Users/HOME/.0.data/.0.emacs/elpa/wanderlust/rfc2368 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/mail/rfc2368
/Users/HOME/.0.data/.0.emacs/elpa/wanderlust/utf7 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/utf7
/Users/HOME/.0.data/.0.emacs/elpa/semi/smime hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/smime
/Users/HOME/.0.data/.0.emacs/elpa/el-get/.dir-locals hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/.dir-locals
/Users/HOME/.0.data/.0.emacs/elpa/semi/pgg hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg
/Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-pgp5 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-pgp5
/Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-pgp hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-pgp
/Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-parse hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-parse
/Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-gpg hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-gpg
/Users/HOME/.0.data/.0.emacs/elpa/semi/pgg-def hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-def
/Users/HOME/.0.data/.0.emacs/elpa/utilities/longlines hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/longlines

Features:
(shadow emacsbug message rfc822 mml mml-sec mm-decode mm-bodies
mm-encode mailabbrev gmm-utils mailheader modb-legacy wl-mime
mime-edit pgg-parse pccl pccl-20 signature mime-setup mail-mime-setup
semi-setup mime-pgp pgg-def mime-play filename mime-image
modb-standard elmo-imap4 time-stamp server disp-table whitespace linum
init-wl wl-demo wl-draft eword-encode wl-template sendmail mail-utils
elmo-net elmo-cache elmo-map elmo-dop wl-news wl-address wl-thread
wl-folder wl wl-e21 wl-spam wl-action wl-summary wl-refile wl-util pp
elmo-flag elmo-localdir wl-message elmo-mime mmelmo-buffer mmelmo-imap
mime-view mime-conf calist semi-def mmimap mime-parse mmbuffer
mmgeneric elmo-multi elmo-spam elsp-header elsp-generic elmo
elmo-signal wl-highlight wl-vars wl-version epg-config elmo-msgdb modb
modb-generic modb-entity luna mime elmo-util emu invisible inv-23 poem
poem-e20 poem-e20_3 utf7 eword-decode mel mime-def alist std11
mcharset mcs-20 mcs-e20 pces pces-e20 pces-20 broken pcustom elmo-date
elmo-vars elmo-version path-util poe pym static apel-ver product
w3m-load mime-w3m w3m browse-url doc-view jka-compr image-mode
w3m-hist w3m-fb bookmark-w3m w3m-ems wid-edit w3m-ccl ccl w3m-favicon
w3m-image w3m-proc w3m-util hl-line multiple-cursors-autoloads package
ps-print ps-def lpr bbdb-autoloads bbdb timezone flyspell ispell
auto-save-buffers-enhanced delsel savehist fill-column-indicator
highlight-indentation column-marker col-highlight vline
centered-cursor-mode dired-aux dired yasnippet help-mode debug
multiple-cursors mc-separate-operations rectangular-region-mode
mc-mark-more thingatpt mc-cycle-cursors mc-edit-lines
multiple-cursors-core edmacro kmacro rect saveplace init-auctex
tex-site desktop frameset init-tabbar tabbar init-org derived cl-macs
gv holidays hol-loaddefs org-capture org-agenda org-toodledo
mailcap-toodledo lawlist-tls http-post-simple cl cl-loaddefs cl-lib
url-http tls url-auth mail-parse rfc2231 rfc2047 rfc2045 ietf-drums
url-gw url url-proxy url-privacy url-expand url-methods url-history
url-cookie url-domsuf url-util url-parse auth-source eieio eieio-core
gnus-util mm-util mail-prsvr password-cache url-vars mailcap json xml
w3mexcerpt org byte-opt bytecomp byte-compile cconv advice help-fns
org-macro org-footnote org-pcomplete pcomplete org-list org-faces
org-entities noutline outline easy-mmode org-version ob-emacs-lisp ob
ob-tangle org-src ob-ref ob-lob ob-table ob-keys ob-exp ob-comint
comint ansi-color ring ob-core ob-eval org-compat org-macs
org-loaddefs format-spec find-func cal-menu calendar cal-loaddefs
hideshow easymenu highlight-parentheses redo time-date tooltip
electric uniquify ediff-hook vc-hooks lisp-float-type mwheel ns-win
tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment
lisp-mode prog-mode register page menu-bar rfn-eshadow timer select
scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame
cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet
lao korean japanese hebrew greek romanian slovak czech european
ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook
help simple abbrev minibuffer nadvice loaddefs button faces cus-face
macroexp files text-properties overlay sha1 md5 base64 format env
code-pages mule custom widget hashtable-print-readable backquote
make-network-process cocoa ns multi-tty emacs)




Acknowledgement sent to Keith David Bershatsky <esq@HIDDEN>:
New bug report received and forwarded. Copy sent to bug-gnu-emacs@HIDDEN. Full text available.
Report forwarded to bug-gnu-emacs@HIDDEN:
bug#16324; Package emacs. Full text available.
Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.
Last modified: Sat, 26 Dec 2015 01:45:02 UTC

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997 nCipher Corporation Ltd, 1994-97 Ian Jackson.