From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nick Dokos Subject: [BUG] org-agenda-list Date: Wed, 10 Jul 2013 22:33:08 -0400 Message-ID: <87d2qp6d23.fsf@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:54344) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ux6hA-0001AZ-2U for emacs-orgmode@gnu.org; Wed, 10 Jul 2013 22:33:29 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Ux6h7-0002wX-Ce for emacs-orgmode@gnu.org; Wed, 10 Jul 2013 22:33:24 -0400 Received: from plane.gmane.org ([80.91.229.3]:50207) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ux6h6-0002wT-T5 for emacs-orgmode@gnu.org; Wed, 10 Jul 2013 22:33:21 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1Ux6h5-00040Q-Jo for emacs-orgmode@gnu.org; Thu, 11 Jul 2013 04:33:19 +0200 Received: from pool-108-7-96-134.bstnma.fios.verizon.net ([108.7.96.134]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 11 Jul 2013 04:33:19 +0200 Received: from ndokos by pool-108-7-96-134.bstnma.fios.verizon.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 11 Jul 2013 04:33:19 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain I just pulled and I get the attached backtrace from org-agenda-list. I tried with -q -l minimal.emacs and it's still there. It's probably caused by commit 42691788273cecb75ec620d40cc5394d2cd95ed1. When I revert that, the agenda comes up properly. Org-mode version 8.0.5 (release_8.0.5-334-g1b1469 @ /home/nick/elisp/org-mode/lisp/) (which includes the revert: the real one is -333-) --=-=-= Content-Type: text/plain Content-Disposition: attachment; filename=bastien.backtrace Content-Transfer-Encoding: quoted-printable Content-Description: Backtrace Debugger entered--Lisp error: (wrong-type-argument sequencep :newline) concat(:newline "") (cond ((eq (car tg) :startgroup) "{") ((eq (car tg) :endgroup) "}") ((eq = (car tg) :grouptags) ":") (t (concat (car tg) (if (characterp (cdr tg)) (fo= rmat "(%s)" (char-to-string (cdr tg))) "")))) (lambda (tg) (cond ((eq (car tg) :startgroup) "{") ((eq (car tg) :endgrou= p) "}") ((eq (car tg) :grouptags) ":") (t (concat (car tg) (if (characterp = (cdr tg)) (format "(%s)" (char-to-string (cdr tg))) "")))))((:newline)) mapcar((lambda (tg) (cond ((eq (car tg) :startgroup) "{") ((eq (car tg) := endgroup) "}") ((eq (car tg) :grouptags) ":") (t (concat (car tg) (if (char= acterp (cdr tg)) (format "(%s)" (char-to-string (cdr tg))) ""))))) (("@DIPL= AN") ("@HOME" . 104) ("@IGN") ("@KUNDE" . 107) ("@UNTERWEGS" . 85) (:newlin= e) ("ADMIN" . 97) ("ASIEN" . 65) ("diplan" . 100) ("drill" . 68) ("EMAIL") = ("export" . 101) ("HIDE" . 72) ("HIDEAGENDA") ("IGNORE" . 120) ("INFO" . 10= 5) ("JWINTER" . 87) ("LESEN" . 76) ("LPM" . 108) ("noexport" . 110) ("ONGOI= NG" . 111) ("PROJEKT") ("REFILETARGET" . 114) (:newline) ("REVIEW_WEEKLY") = ("REVIEW_MONTHLY") ("becom" . 98) ("fleckenm" . 102) ("foerster" . 70) ("ro= b" . 82) ("roth") ("SERVICE") ("stengele" . 115) ("TC" . 116) ("TEL") ("TDE= IERL") ("WARTEN" . 119) ("UBMED" . 117) ("ULLA" . 122))) (setq tags (mapcar (function (lambda (tg) (cond ((eq (car tg) :startgroup= ) "{") ((eq (car tg) :endgroup) "}") ((eq (car tg) :grouptags) ":") (t (con= cat (car tg) (if ... ... "")))))) org-tag-alist)) (progn (setq tags (mapcar (function (lambda (tg) (cond ((eq ... :startgro= up) "{") ((eq ... :endgroup) "}") ((eq ... :grouptags) ":") (t (concat ... = ...))))) org-tag-alist))) (if (and (not tags) org-tag-alist) (progn (setq tags (mapcar (function (l= ambda (tg) (cond (... "{") (... "}") (... ":") (t ...)))) org-tag-alist)))) (let ((re (org-make-options-regexp (quote ("FILETAGS" "TAGS")))) (splitre= "[ ]+") (start 0) tags ftags key value) (save-excursion (save-restriction= (widen) (goto-char (point-min)) (while (re-search-forward re nil t) (setq = key (upcase (org-match-string-no-properties 1)) value (org-match-string-no-= properties 2)) (if (stringp value) (setq value (org-trim value))) (cond ((e= qual key "TAGS") (setq tags (append tags ... ...))) ((equal key "FILETAGS")= (if (string-match "\\S-" value) (progn ...))))))) (and ftags (org-set-loca= l (quote org-file-tags) (mapcar (quote org-add-prop-inherited) ftags))) (or= g-set-local (quote org-tag-groups-alist) nil) (if (and (not tags) org-tag-a= list) (progn (setq tags (mapcar (function (lambda (tg) (cond ... ... ... ..= .))) org-tag-alist)))) (let (e tgs g) (while (setq e (car (prog1 tags (setq= tags (cdr tags))))) (cond ((equal e "{") (progn (setq tgs (cons ... tgs)) = (if (equal ... ":") (progn ... ...)))) ((equal e ":") (setq tgs (cons (quot= e ...) tgs))) ((equal e "}") (setq tgs (cons (quote ...) tgs)) (if g (setq = g nil))) ((equal e "\\n") (setq tgs (cons (quote ...) tgs))) ((string-match= "^\\([[:alnum:]_@#%]+\\)(\\(.\\))$" e) (setq tgs (cons (cons ... ...) tgs)= ) (if (and g (> g 0)) (setcar org-tag-groups-alist (append ... ...))) (if g= (setq g (1+ g)))) (t (setq tgs (cons (list e) tgs)) (if (and g (> g 0)) (s= etcar org-tag-groups-alist (append ... ...))) (if g (setq g (1+ g)))))) (or= g-set-local (quote org-tag-alist) nil) (while (setq e (car (prog1 tgs (setq= tgs (cdr tgs))))) (or (and (stringp (car e)) (assoc (car e) org-tag-alist)= ) (setq org-tag-alist (cons e org-tag-alist)))) (list org-file-tags org-tag= -alist org-tag-groups-alist))) (progn (org-set-local (quote org-file-tags) nil) (let ((re (org-make-opti= ons-regexp (quote ("FILETAGS" "TAGS")))) (splitre "[ ]+") (start 0) tags f= tags key value) (save-excursion (save-restriction (widen) (goto-char (point= -min)) (while (re-search-forward re nil t) (setq key (upcase (org-match-str= ing-no-properties 1)) value (org-match-string-no-properties 2)) (if (string= p value) (setq value (org-trim value))) (cond ((equal key "TAGS") (setq tag= s ...)) ((equal key "FILETAGS") (if ... ...)))))) (and ftags (org-set-local= (quote org-file-tags) (mapcar (quote org-add-prop-inherited) ftags))) (org= -set-local (quote org-tag-groups-alist) nil) (if (and (not tags) org-tag-al= ist) (progn (setq tags (mapcar (function (lambda ... ...)) org-tag-alist)))= ) (let (e tgs g) (while (setq e (car (prog1 tags (setq tags ...)))) (cond (= (equal e "{") (progn (setq tgs ...) (if ... ...))) ((equal e ":") (setq tgs= (cons ... tgs))) ((equal e "}") (setq tgs (cons ... tgs)) (if g (setq g ni= l))) ((equal e "\\n") (setq tgs (cons ... tgs))) ((string-match "^\\([[:aln= um:]_@#%]+\\)(\\(.\\))$" e) (setq tgs (cons ... tgs)) (if (and g ...) (setc= ar org-tag-groups-alist ...)) (if g (setq g ...))) (t (setq tgs (cons ... t= gs)) (if (and g ...) (setcar org-tag-groups-alist ...)) (if g (setq g ...))= ))) (org-set-local (quote org-tag-alist) nil) (while (setq e (car (prog1 tg= s (setq tgs ...)))) (or (and (stringp (car e)) (assoc (car e) org-tag-alist= )) (setq org-tag-alist (cons e org-tag-alist)))) (list org-file-tags org-ta= g-alist org-tag-groups-alist)))) (if (derived-mode-p (quote org-mode)) (progn (org-set-local (quote org-fi= le-tags) nil) (let ((re (org-make-options-regexp (quote ("FILETAGS" "TAGS")= ))) (splitre "[ ]+") (start 0) tags ftags key value) (save-excursion (save= -restriction (widen) (goto-char (point-min)) (while (re-search-forward re n= il t) (setq key (upcase ...) value (org-match-string-no-properties 2)) (if = (stringp value) (setq value ...)) (cond (... ...) (... ...))))) (and ftags = (org-set-local (quote org-file-tags) (mapcar (quote org-add-prop-inherited)= ftags))) (org-set-local (quote org-tag-groups-alist) nil) (if (and (not ta= gs) org-tag-alist) (progn (setq tags (mapcar (function ...) org-tag-alist))= )) (let (e tgs g) (while (setq e (car (prog1 tags ...))) (cond ((equal e "{= ") (progn ... ...)) ((equal e ":") (setq tgs ...)) ((equal e "}") (setq tgs= ...) (if g ...)) ((equal e "\\n") (setq tgs ...)) ((string-match "^\\([[:a= lnum:]_@#%]+\\)(\\(.\\))$" e) (setq tgs ...) (if ... ...) (if g ...)) (t (s= etq tgs ...) (if ... ...) (if g ...)))) (org-set-local (quote org-tag-alist= ) nil) (while (setq e (car (prog1 tgs ...))) (or (and (stringp ...) (assoc = ... org-tag-alist)) (setq org-tag-alist (cons e org-tag-alist)))) (list org= -file-tags org-tag-alist org-tag-groups-alist))))) org-set-regexps-and-options-for-tags() (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check-a= genda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (o= rg-set-regexps-and-options-for-tags) (goto-char (point-min)) (let ((case-fo= ld-search t)) (if (search-forward "#+setupfile" nil t) (progn (org-set-rege= xps-and-options)))) (org-refresh-category-properties) (org-refresh-properti= es org-effort-property (quote org-effort)) (org-refresh-properties "APPT_WA= RNTIME" (quote org-appt-warntime)) (setq org-todo-keywords-for-agenda (appe= nd org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywor= ds-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (set= q org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agen= da org-todo-key-alist)) (setq org-drawers-for-agenda (append org-drawers-fo= r-agenda org-drawers)) (setq org-tag-alist-for-agenda (org-uniquify (append= org-tag-alist-for-agenda org-tag-alist org-tag-persistent-alist))) (if org= -group-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alist (appe= nd org-tag-groups-alist-for-agenda org-tag-groups-alist)))) (let* ((modifie= d (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-= modification-hooks t) deactivate-mark buffer-file-name buffer-file-truename= ) (unwind-protect (progn (save-excursion (remove-text-properties (point-min= ) (point-max) pall) (if org-agenda-skip-archived-trees (progn (goto-char ..= .) (while ... ...))) (goto-char (point-min)) (setq re (format org-heading-k= eyword-regexp-format org-comment-string)) (while (re-search-forward re nil = t) (add-text-properties (match-beginning 0) (org-end-of-subtree t) pc)))) (= if modified nil (restore-buffer-modified-p nil))))) (while (setq file (car (prog1 files (setq files (cdr files))))) (catch (q= uote nextfile) (if (bufferp file) (set-buffer file) (org-check-agenda-file = file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-rege= xps-and-options-for-tags) (goto-char (point-min)) (let ((case-fold-search t= )) (if (search-forward "#+setupfile" nil t) (progn (org-set-regexps-and-opt= ions)))) (org-refresh-category-properties) (org-refresh-properties org-effo= rt-property (quote org-effort)) (org-refresh-properties "APPT_WARNTIME" (qu= ote org-appt-warntime)) (setq org-todo-keywords-for-agenda (append org-todo= -keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agen= da (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-= keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo= -key-alist)) (setq org-drawers-for-agenda (append org-drawers-for-agenda or= g-drawers)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-al= ist-for-agenda org-tag-alist org-tag-persistent-alist))) (if org-group-tags= (setq org-tag-groups-alist-for-agenda (org-uniquify-alist (append org-tag-= groups-alist-for-agenda org-tag-groups-alist)))) (let* ((modified (buffer-m= odified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modificatio= n-hooks t) deactivate-mark buffer-file-name buffer-file-truename) (unwind-p= rotect (progn (save-excursion (remove-text-properties (point-min) (point-ma= x) pall) (if org-agenda-skip-archived-trees (progn ... ...)) (goto-char (po= int-min)) (setq re (format org-heading-keyword-regexp-format org-comment-st= ring)) (while (re-search-forward re nil t) (add-text-properties ... ... pc)= ))) (if modified nil (restore-buffer-modified-p nil)))))) (save-restriction (while (setq file (car (prog1 files (setq files (cdr fi= les))))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-= check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (wi= den) (org-set-regexps-and-options-for-tags) (goto-char (point-min)) (let ((= case-fold-search t)) (if (search-forward "#+setupfile" nil t) (progn (org-s= et-regexps-and-options)))) (org-refresh-category-properties) (org-refresh-p= roperties org-effort-property (quote org-effort)) (org-refresh-properties "= APPT_WARNTIME" (quote org-appt-warntime)) (setq org-todo-keywords-for-agend= a (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done= -keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords= )) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-f= or-agenda org-todo-key-alist)) (setq org-drawers-for-agenda (append org-dra= wers-for-agenda org-drawers)) (setq org-tag-alist-for-agenda (org-uniquify = (append org-tag-alist-for-agenda org-tag-alist org-tag-persistent-alist))) = (if org-group-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alis= t (append org-tag-groups-alist-for-agenda org-tag-groups-alist)))) (let* ((= modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (i= nhibit-modification-hooks t) deactivate-mark buffer-file-name buffer-file-t= ruename) (unwind-protect (progn (save-excursion (remove-text-properties ...= ... pall) (if org-agenda-skip-archived-trees ...) (goto-char ...) (setq re= ...) (while ... ...))) (if modified nil (restore-buffer-modified-p nil))))= ))) (save-excursion (save-restriction (while (setq file (car (prog1 files (se= tq files (cdr files))))) (catch (quote nextfile) (if (bufferp file) (set-bu= ffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-bu= ffer file))) (widen) (org-set-regexps-and-options-for-tags) (goto-char (poi= nt-min)) (let ((case-fold-search t)) (if (search-forward "#+setupfile" nil = t) (progn (org-set-regexps-and-options)))) (org-refresh-category-properties= ) (org-refresh-properties org-effort-property (quote org-effort)) (org-refr= esh-properties "APPT_WARNTIME" (quote org-appt-warntime)) (setq org-todo-ke= ywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)= ) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda o= rg-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo= -keyword-alist-for-agenda org-todo-key-alist)) (setq org-drawers-for-agenda= (append org-drawers-for-agenda org-drawers)) (setq org-tag-alist-for-agend= a (org-uniquify (append org-tag-alist-for-agenda org-tag-alist org-tag-pers= istent-alist))) (if org-group-tags (setq org-tag-groups-alist-for-agenda (o= rg-uniquify-alist (append org-tag-groups-alist-for-agenda org-tag-groups-al= ist)))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit= -read-only t) (inhibit-modification-hooks t) deactivate-mark buffer-file-na= me buffer-file-truename) (unwind-protect (progn (save-excursion ... ... ...= ... ...)) (if modified nil (restore-buffer-modified-p nil)))))))) (let ((pa (quote (:org-archived t))) (pc (quote (:org-comment t))) (pall = (quote (:org-archived t :org-comment t))) (inhibit-read-only t) (org-inhibi= t-startup org-agenda-inhibit-startup) (rea (concat ":" org-archive-tag ":")= ) file re) (setq org-tag-alist-for-agenda nil org-tag-groups-alist-for-agen= da nil) (save-excursion (save-restriction (while (setq file (car (prog1 fil= es (setq files ...)))) (catch (quote nextfile) (if (bufferp file) (set-buff= er file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buff= er file))) (widen) (org-set-regexps-and-options-for-tags) (goto-char (point= -min)) (let ((case-fold-search t)) (if (search-forward "#+setupfile" nil t)= (progn ...))) (org-refresh-category-properties) (org-refresh-properties or= g-effort-property (quote org-effort)) (org-refresh-properties "APPT_WARNTIM= E" (quote org-appt-warntime)) (setq org-todo-keywords-for-agenda (append or= g-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-fo= r-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org= -todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda or= g-todo-key-alist)) (setq org-drawers-for-agenda (append org-drawers-for-age= nda org-drawers)) (setq org-tag-alist-for-agenda (org-uniquify (append org-= tag-alist-for-agenda org-tag-alist org-tag-persistent-alist))) (if org-grou= p-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alist ...))) (le= t* ((modified ...) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modi= fication-hooks t) deactivate-mark buffer-file-name buffer-file-truename) (u= nwind-protect (progn ...) (if modified nil ...))))))) (setq org-todo-keywor= ds-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq org-todo-k= eyword-alist-for-agenda (org-uniquify org-todo-keyword-alist-for-agenda))) org-agenda-prepare-buffers(("/home/nick/lib/org/rainer.org" "/home/nick/l= ib/org/ajames.org" "/home/nick/lib/org/appts.org" "/home/nick/lib/org/appts= 2.org" "/home/nick/lib/org/bills.org" "/home/nick/lib/org/car.org" "/home/n= ick/lib/org/catalog-software.org" "/home/nick/lib/org/cloud.org" "/home/nic= k/lib/org/crm.org" "/home/nick/lib/org/current.org" "/home/nick/lib/org/des= ktops.org" "/home/nick/lib/org/ext4.org" "/home/nick/lib/org/feeds.org" "/h= ome/nick/lib/org/finances.org" "/home/nick/lib/org/fios.org" "/home/nick/li= b/org/harness.org" "/home/nick/lib/org/hazard.org" "/home/nick/lib/org/heal= th.org" "/home/nick/lib/org/home.org" "/home/nick/lib/org/journal.org" "/ho= me/nick/lib/org/lab.org" "/home/nick/lib/org/labels.org" "/home/nick/lib/or= g/links.org" "/home/nick/lib/org/linuxcon.org" "/home/nick/lib/org/margenet= a.org" "/home/nick/lib/org/music.org" "/home/nick/lib/org/notes.org" "/home= /nick/lib/org/ohiotrip.org" "/home/nick/lib/org/org-mode-requirements.org" = "/home/nick/lib/org/org-options.org" "/home/nick/lib/org/org.org" "/home/ni= ck/lib/org/other.org" "/home/nick/lib/org/ra.org" "/home/nick/lib/org/regre= ssion.org" "/home/nick/lib/org/rhel6.org" "/home/nick/lib/org/runs.org" "/h= ome/nick/lib/org/shopping.org" "/home/nick/lib/org/sprint.org" "/home/nick/= lib/org/sw.org" "/home/nick/lib/org/tabs.org" "/home/nick/lib/org/test.org"= "/home/nick/lib/org/thyroid.org" "/home/nick/lib/org/todo.org" "/home/nick= /lib/org/trip.org" "/home/nick/lib/org/weather.org" "/home/nick/lib/org/wor= k.org" "/home/nick/lib/org/workqueue.org")) (let* ((cnt 0) (scope (or args (quote (:deadline* :scheduled* :timestamp)= ))) (org-agenda-new-buffers nil) (org-deadline-warning-days 0) (today (org-= date-to-gregorian (time-to-days (current-time)))) (org-agenda-restrict nil)= (files (org-agenda-files (quote unrestricted))) entries file (org-agenda-b= uffer nil)) (org-agenda-prepare-buffers files) (while (setq file (car (prog= 1 files (setq files (cdr files))))) (setq entries (delq nil (append entries= (apply (quote org-agenda-get-day-entries) file today scope))))) (mapc (fun= ction (lambda (x) (let* ((evt (org-trim ...)) (cat (get-text-property 1 ...= x)) (tod (get-text-property 1 ... x)) (ok (or ... ... ... ...)) (wrn (get-= text-property 1 ... x))) (if (and ok tod) (progn (setq tod ... tod ...) (if= ... ... ...) (setq cnt ...)))))) entries) (org-release-buffers org-agenda-= new-buffers) (if (eq cnt 0) (message "No event to add") (message "Added %d = event%s for today" cnt (if (> cnt 1) "s" "")))) org-agenda-to-appt() ndk/agenda-to-appt() eval-buffer(# nil "/home/nick/elisp/config/org-con= fig.el" nil t) ; Reading at buffer position 12042 load-with-code-conversion("/home/nick/elisp/config/org-config.el" "/home/= nick/elisp/config/org-config.el" nil t) require(org-config) (if (experimental-enabled t) (require (quote org-config))) eval-buffer(# nil "/home/nick/.emacs" nil t) ; Reading a= t buffer position 7204 load-with-code-conversion("/home/nick/.emacs" "/home/nick/.emacs" t t) load("~/.emacs" t t) #[0 "\205\262=00 \306=3D\203=11=00\307\310Q\202;=00 \311=3D\204=1E=00\3= 07\312Q\202;=00\313\307\314\315#\203*=00\316\202;=00\313\307\314\317#\203:= =00\320\nB=12\321\202;=00\316\322=13\323=01\322\211#\210=0B\322=3D\203a=00\= 324\325\326\307\327Q!\"\323=01\322\211#\210=0B\322=3D\203`=00=01=13\210=0B= \203\243=00\330=0B!\331\232\203\243=00\332=0B!\211\333P\334=01!\203}=00\211= \202\210=00\334=02!\203\207=00=01\202\210=00\314\262=02=01\203\241=00\335= =02=0B\"\203\237=00\336\337=03=0B#\210\340\341!\210=01=13\266=02\f?\205\260= =00\314=1D\323\342\322\211#)\262=01\207" [init-file-user system-type delaye= d-warnings-list user-init-file inhibit-default-init inhibit-startup-screen = ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(= \\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" (initialization "`_emacs'= init file is deprecated, please use `.emacs'") "~/_emacs" t load expand-fi= le-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc"= file-name-sans-extension ".el" file-exists-p file-newer-than-file-p messag= e "Warning: %s is newer than %s" sit-for 1 "default"] 7 "\n\n(fn)"]() command-line() normal-top-level() --=-=-= Content-Type: text/plain -- Nick --=-=-=--