From mboxrd@z Thu Jan 1 00:00:00 1970 From: Wes Nakamura Subject: #+PRIORITIES: in XEmacs Date: Wed, 30 May 2007 11:55:28 -0700 (PDT) Message-ID: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1HtTKd-0004kJ-47 for emacs-orgmode@gnu.org; Wed, 30 May 2007 14:55:39 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1HtTKb-0004jt-C0 for emacs-orgmode@gnu.org; Wed, 30 May 2007 14:55:38 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HtTKb-0004jk-1V for emacs-orgmode@gnu.org; Wed, 30 May 2007 14:55:37 -0400 Received: from smtp61.avvanta.com ([206.124.128.61] helo=mail.avvanta.com) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1HtTKZ-00029w-Io for emacs-orgmode@gnu.org; Wed, 30 May 2007 14:55:36 -0400 Received: from mail.avvanta.com (scooter.p.blarg.net [127.0.0.1]) by mail.avvanta.com (Postfix) with ESMTP id 648CF276D6B for ; Wed, 30 May 2007 11:55:30 -0700 (PDT) Received: from dhabat.pair.com (dhabat.pair.com [209.68.1.219]) by mail.avvanta.com (Postfix) with ESMTP id E392A276C59 for ; Wed, 30 May 2007 11:55:29 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode When I attempt to use the new #+PRIORITIES: feature from 4.75 in XEmacs 21.5, I get the following trace when opening the file. It doesn't matter if I'm using letters or numbers as priorities, or whether variables such as org-lowest-priority are set. Any pointers? I'm particurly interested in using numbers as priorities. thanks, Wes (1) (file-mode-spec/warning) Error in File mode specification: Wrong type= argument: arrayp, ?A Backtrace follows: aref(?A 0) (org-set-local (quote org-highest-priority) (aref (nth 0 prio) 0)) (progn (if (< (length prio) 3) (setq prio (quote ("A" "C" "B")))) (setq= prio (mapcar (quote string-to-char) prio)) (org-set-local (quote org-hig= hest-priority) (aref (nth 0 prio) 0)) (org-set-local (quote org-lowest-pr= iority) (aref (nth 1 prio) 0)) (org-set-local (quote org-default-priority= ) (aref (nth 2 prio) 0))) (if prio (progn (if (< (length prio) 3) (setq prio (quote ("A" "C" "B")= ))) (setq prio (mapcar (quote string-to-char) prio)) (org-set-local (quot= e org-highest-priority) (aref (nth 0 prio) 0)) (org-set-local (quote org-= lowest-priority) (aref (nth 1 prio) 0)) (org-set-local (quote org-default= -priority) (aref (nth 2 prio) 0)))) (when prio (if (< (length prio) 3) (setq prio (quote ("A" "C" "B")))) (= setq prio (mapcar (quote string-to-char) prio)) (org-set-local (quote org= -highest-priority) (aref (nth 0 prio) 0)) (org-set-local (quote org-lowes= t-priority) (aref (nth 1 prio) 0)) (org-set-local (quote org-default-prio= rity) (aref (nth 2 prio) 0))) # bind (prio kws1 sep tail dws hw links tags arch cat value key kwds sp= litre re) (let ((re (org-make-options-regexp (quote ("CATEGORY" "SEQ_TODO" "PRI_T= ODO" "TYP_TODO" "STARTUP" "ARCHIVE" "TAGS" "LINK" "PRIORITIES")))) (split= re "[ ]+") kwds key value cat arch tags links hw dws tail sep kws1 prio)= (save-excursion (save-restriction (widen) (goto-char (point-min)) (while= (re-search-forward re nil t) (setq key (match-string 1) value (org-match= -string-no-properties 2)) (cond ((equal key "CATEGORY") (if (string-match= "[ ]+$" value) (setq value (replace-match "" t t value))) (setq cat (in= tern value))) ((equal key "SEQ_TODO") (push (cons (quote sequence) (org-s= plit-string value splitre)) kwds)) ((equal key "TYP_TODO") (push (cons (q= uote type) (org-split-string value splitre)) kwds)) ((equal key "TAGS") (= setq tags (append tags (org-split-string value splitre)))) ((equal key "L= INK") (when (string-match "^\\(\\S-+\\)[ ]+\\(.+\\)" value) (push (cons = (match-string 1 value) (org-trim (match-string 2 value))) links))) ((equa= l key "PRIORITIES") (setq prio (org-split -string " +" value))) ((equal key "STARTUP") (let ((opts (org-split-stri= ng value splitre)) l var val) (while (setq l (pop opts)) (when (setq l (a= ssoc l org-startup-options)) (setq var (nth 1 l) val (nth 2 l)) (if (not = (nth 3 l)) (set (make-local-variable var) val) (if (not (listp (symbol-va= lue var))) (set (make-local-variable var) nil)) (set (make-local-variable= var) (symbol-value var)) (add-to-list var val)))))) ((equal key "ARCHIVE= ") (string-match " *$" value) (setq arch (replace-match "" t t value)) (r= emove-text-properties 0 (length arch) (quote (face t fontified t)) arch))= )))) (and cat (org-set-local (quote org-category) cat)) (when prio (if (<= (length prio) 3) (setq prio (quote ("A" "C" "B")))) (setq prio (mapcar (= quote string-to-char) prio)) (org-set-local (quote org-highest-priority) = (aref (nth 0 prio) 0)) (org-set-local (quote org-lowest-priority) (aref (= nth 1 prio) 0)) (org-set-local (quote org-default-priority) (aref (nth 2 = prio) 0))) (and arch (org-set-local (quot e org-archive-location) arch)) (and links (setq org-link-abbrev-alist-lo= cal (nreverse links))) (unless kwds (setq kwds (default-value (quote org-= todo-keywords))) (if (stringp (car kwds)) (setq kwds (list (cons org-todo= -interpretation (default-value (quote org-todo-keywords)))))) (setq kwds = (reverse kwds))) (setq kwds (nreverse kwds)) (let (inter kws) (while (set= q kws (pop kwds)) (setq inter (pop kws) sep (member "|" kws) kws1 (delete= "|" (copy-sequence kws)) hw (car kws1) dws (if sep (cdr sep) (last kws1)= ) tail (list inter hw (car dws) (org-last dws))) (add-to-list (quote org-= todo-heads) hw (quote append)) (push kws1 org-todo-sets) (setq org-done-k= eywords (append org-done-keywords dws nil)) (mapc (lambda (x) (push (cons= x tail) org-todo-kwd-alist)) kws1) (setq org-todo-keywords-1 (append org= -todo-keywords-1 kws1 nil))) (setq org-todo-sets (nreverse org-todo-sets)= org-todo-kwd-alist (nreverse org-todo-kwd-alist))) (when tags (let (e tg= s) (while (setq e (pop tags)) (cond ((equ al e "{") (push (quote (:startgroup)) tgs)) ((equal e "}") (push (quote = (:endgroup)) tgs)) ((string-match "^\\([0-9a-zA-Z_@]+\\)(\\(.\\))$" e) (p= ush (cons (match-string 1 e) (string-to-char (match-string 2 e))) tgs)) (= t (push (list e) tgs)))) (org-set-local (quote org-tag-alist) nil) (while= (setq e (pop tgs)) (or (and (stringp (car e)) (assoc (car e) org-tag-ali= st)) (push e org-tag-alist)))))) (progn (org-set-local (quote org-todo-kwd-alist) nil) (org-set-local (q= uote org-todo-keywords-1) nil) (org-set-local (quote org-done-keywords) n= il) (org-set-local (quote org-todo-heads) nil) (org-set-local (quote org-= todo-sets) nil) (let ((re (org-make-options-regexp (quote ("CATEGORY" "SE= Q_TODO" "PRI_TODO" "TYP_TODO" "STARTUP" "ARCHIVE" "TAGS" "LINK" "PRIORITI= ES")))) (splitre "[ ]+") kwds key value cat arch tags links hw dws tail = sep kws1 prio) (save-excursion (save-restriction (widen) (goto-char (poin= t-min)) (while (re-search-forward re nil t) (setq key (match-string 1) va= lue (org-match-string-no-properties 2)) (cond ((equal key "CATEGORY") (if= (string-match "[ ]+$" value) (setq value (replace-match "" t t value)))= (setq cat (intern value))) ((equal key "SEQ_TODO") (push (cons (quote se= quence) (org-split-string value splitre)) kwds)) ((equal key "TYP_TODO") = (push (cons (quote type) (org-split-string value splitre)) kwds)) ((equal= key "TAGS") (setq tags (append tags (org -split-string value splitre)))) ((equal key "LINK") (when (string-match = "^\\(\\S-+\\)[ ]+\\(.+\\)" value) (push (cons (match-string 1 value) (or= g-trim (match-string 2 value))) links))) ((equal key "PRIORITIES") (setq = prio (org-split-string " +" value))) ((equal key "STARTUP") (let ((opts (= org-split-string value splitre)) l var val) (while (setq l (pop opts)) (w= hen (setq l (assoc l org-startup-options)) (setq var (nth 1 l) val (nth 2= l)) (if (not (nth 3 l)) (set (make-local-variable var) val) (if (not (li= stp (symbol-value var))) (set (make-local-variable var) nil)) (set (make-= local-variable var) (symbol-value var)) (add-to-list var val)))))) ((equa= l key "ARCHIVE") (string-match " *$" value) (setq arch (replace-match "" = t t value)) (remove-text-properties 0 (length arch) (quote (face t fontif= ied t)) arch)))))) (and cat (org-set-local (quote org-category) cat)) (wh= en prio (if (< (length prio) 3) (setq prio (quote ("A" "C" "B")))) (setq = prio (mapcar (quote string-to-char) prio) ) (org-set-local (quote org-highest-priority) (aref (nth 0 prio) 0)) (or= g-set-local (quote org-lowest-priority) (aref (nth 1 prio) 0)) (org-set-l= ocal (quote org-default-priority) (aref (nth 2 prio) 0))) (and arch (org-= set-local (quote org-archive-location) arch)) (and links (setq org-link-a= bbrev-alist-local (nreverse links))) (unless kwds (setq kwds (default-val= ue (quote org-todo-keywords))) (if (stringp (car kwds)) (setq kwds (list = (cons org-todo-interpretation (default-value (quote org-todo-keywords))))= )) (setq kwds (reverse kwds))) (setq kwds (nreverse kwds)) (let (inter kw= s) (while (setq kws (pop kwds)) (setq inter (pop kws) sep (member "|" kws= ) kws1 (delete "|" (copy-sequence kws)) hw (car kws1) dws (if sep (cdr se= p) (last kws1)) tail (list inter hw (car dws) (org-last dws))) (add-to-li= st (quote org-todo-heads) hw (quote append)) (push kws1 org-todo-sets) (s= etq org-done-keywords (append org-done-keywords dws nil)) (mapc (lambda (= x) (push (cons x tail) org-todo-kwd-alist )) kws1) (setq org-todo-keywords-1 (append org-todo-keywords-1 kws1 nil)= )) (setq org-todo-sets (nreverse org-todo-sets) org-todo-kwd-alist (nreve= rse org-todo-kwd-alist))) (when tags (let (e tgs) (while (setq e (pop tag= s)) (cond ((equal e "{") (push (quote (:startgroup)) tgs)) ((equal e "}")= (push (quote (:endgroup)) tgs)) ((string-match "^\\([0-9a-zA-Z_@]+\\)(\\= (.\\))$" e) (push (cons (match-string 1 e) (string-to-char (match-string = 2 e))) tgs)) (t (push (list e) tgs)))) (org-set-local (quote org-tag-alis= t) nil) (while (setq e (pop tgs)) (or (and (stringp (car e)) (assoc (car = e) org-tag-alist)) (push e org-tag-alist)))))) (if (not org-done-keywords= ) (setq org-done-keywords (list (org-last org-todo-keywords-1)))) (setq o= rg-ds-keyword-length (+ 2 (max (length org-deadline-string) (length org-s= cheduled-string))) org-not-done-keywords (org-delete-all org-done-keyword= s (copy-sequence org-todo-keywords-1)) org-todo-regexp (concat "\\<\\(" (= mapconcat (quote regexp-quote) org-todo-k eywords-1 "\\|") "\\)\\>") org-not-done-regexp (concat "\\<\\(" (mapconc= at (quote regexp-quote) org-not-done-keywords "\\|") "\\)\\>") org-todo-l= ine-regexp (concat "^\\(\\*+\\)[ ]*\\(?:\\(" (mapconcat (quote regexp-qu= ote) org-todo-keywords-1 "\\|") "\\)\\>\\)? *\\(.*\\)") org-nl-done-regex= p (concat "[\n]\\*+[ ]+" "\\(?:" (mapconcat (quote regexp-quote) org-don= e-keywords "\\|") "\\)" "\\>") org-todo-line-tags-regexp (concat "^\\(\\*= +\\)[ ]*\\(?:\\(" (mapconcat (quote regexp-quote) org-todo-keywords-1 "\= \|") "\\)\\>\\)? *\\(.*?\\([ ]:[a-zA-Z0-9:_@]+:[ ]*\\)?$\\)") org-looki= ng-at-done-regexp (concat "^" "\\(?:" (mapconcat (quote regexp-quote) org= -done-keywords "\\|") "\\)" "\\>") org-deadline-regexp (concat "\\<" org-= deadline-string) org-deadline-time-regexp (concat "\\<" org-deadline-stri= ng " *<\\([^>]+\\)>") org-deadline-line-regexp (concat "\\<\\(" org-deadl= ine-string "\\).*") org-scheduled-regexp (concat "\\<" org-scheduled-stri= ng) org-scheduled-time-regexp (concat "\\ <" org-scheduled-string " *<\\([^>]+\\)>") org-closed-time-regexp (conca= t "\\<" org-closed-string " *\\[\\([^]]+\\)\\]") org-keyword-time-regexp = (concat "\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org= -closed-string "\\|" org-clock-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org= -keyword-time-not-clock-regexp (concat "\\<\\(" org-scheduled-string "\\|= " org-deadline-string "\\|" org-closed-string "\\)" " *[[<]\\([^]>]+\\)[]= >]") org-maybe-keyword-time-regexp (concat "\\(\\<\\(" org-scheduled-stri= ng "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-stri= ng "\\)\\)?" " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [^]\n>]*?[]= >]\\|<%%([^\n>]*>\\)") org-planning-or-clock-line-re (concat "\\(?:^[ ]*= \\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-stri= ng "\\|" org-clock-string "\\)\\>\\)")) (org-set-font-lock-defaults)) (if (org-mode-p) (progn (org-set-local (quote org-todo-kwd-alist) nil) = (org-set-local (quote org-todo-keywords-1) nil) (org-set-local (quote org= -done-keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-= local (quote org-todo-sets) nil) (let ((re (org-make-options-regexp (quot= e ("CATEGORY" "SEQ_TODO" "PRI_TODO" "TYP_TODO" "STARTUP" "ARCHIVE" "TAGS"= "LINK" "PRIORITIES")))) (splitre "[ ]+") kwds key value cat arch tags l= inks hw dws tail sep kws1 prio) (save-excursion (save-restriction (widen)= (goto-char (point-min)) (while (re-search-forward re nil t) (setq key (m= atch-string 1) value (org-match-string-no-properties 2)) (cond ((equal ke= y "CATEGORY") (if (string-match "[ ]+$" value) (setq value (replace-matc= h "" t t value))) (setq cat (intern value))) ((equal key "SEQ_TODO") (pus= h (cons (quote sequence) (org-split-string value splitre)) kwds)) ((equal= key "TYP_TODO") (push (cons (quote type) (org-split-string value splitre= )) kwds)) ((equal key "TAGS") (setq tags=20 (append tags (org-split-string value splitre)))) ((equal key "LINK") (wh= en (string-match "^\\(\\S-+\\)[ ]+\\(.+\\)" value) (push (cons (match-st= ring 1 value) (org-trim (match-string 2 value))) links))) ((equal key "PR= IORITIES") (setq prio (org-split-string " +" value))) ((equal key "STARTU= P") (let ((opts (org-split-string value splitre)) l var val) (while (setq= l (pop opts)) (when (setq l (assoc l org-startup-options)) (setq var (nt= h 1 l) val (nth 2 l)) (if (not (nth 3 l)) (set (make-local-variable var) = val) (if (not (listp (symbol-value var))) (set (make-local-variable var) = nil)) (set (make-local-variable var) (symbol-value var)) (add-to-list var= val)))))) ((equal key "ARCHIVE") (string-match " *$" value) (setq arch (= replace-match "" t t value)) (remove-text-properties 0 (length arch) (quo= te (face t fontified t)) arch)))))) (and cat (org-set-local (quote org-ca= tegory) cat)) (when prio (if (< (length prio) 3) (setq prio (quote ("A" "= C" "B")))) (setq prio (mapcar (quote stri ng-to-char) prio)) (org-set-local (quote org-highest-priority) (aref (nt= h 0 prio) 0)) (org-set-local (quote org-lowest-priority) (aref (nth 1 pri= o) 0)) (org-set-local (quote org-default-priority) (aref (nth 2 prio) 0))= ) (and arch (org-set-local (quote org-archive-location) arch)) (and links= (setq org-link-abbrev-alist-local (nreverse links))) (unless kwds (setq = kwds (default-value (quote org-todo-keywords))) (if (stringp (car kwds)) = (setq kwds (list (cons org-todo-interpretation (default-value (quote org-= todo-keywords)))))) (setq kwds (reverse kwds))) (setq kwds (nreverse kwds= )) (let (inter kws) (while (setq kws (pop kwds)) (setq inter (pop kws) se= p (member "|" kws) kws1 (delete "|" (copy-sequence kws)) hw (car kws1) dw= s (if sep (cdr sep) (last kws1)) tail (list inter hw (car dws) (org-last = dws))) (add-to-list (quote org-todo-heads) hw (quote append)) (push kws1 = org-todo-sets) (setq org-done-keywords (append org-done-keywords dws nil)= ) (mapc (lambda (x) (push (cons x tail) o rg-todo-kwd-alist)) kws1) (setq org-todo-keywords-1 (append org-todo-key= words-1 kws1 nil))) (setq org-todo-sets (nreverse org-todo-sets) org-todo= -kwd-alist (nreverse org-todo-kwd-alist))) (when tags (let (e tgs) (while= (setq e (pop tags)) (cond ((equal e "{") (push (quote (:startgroup)) tgs= )) ((equal e "}") (push (quote (:endgroup)) tgs)) ((string-match "^\\([0-= 9a-zA-Z_@]+\\)(\\(.\\))$" e) (push (cons (match-string 1 e) (string-to-ch= ar (match-string 2 e))) tgs)) (t (push (list e) tgs)))) (org-set-local (q= uote org-tag-alist) nil) (while (setq e (pop tgs)) (or (and (stringp (car= e)) (assoc (car e) org-tag-alist)) (push e org-tag-alist)))))) (if (not = org-done-keywords) (setq org-done-keywords (list (org-last org-todo-keywo= rds-1)))) (setq org-ds-keyword-length (+ 2 (max (length org-deadline-stri= ng) (length org-scheduled-string))) org-not-done-keywords (org-delete-all= org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp (= concat "\\<\\(" (mapconcat (quote regexp- quote) org-todo-keywords-1 "\\|") "\\)\\>") org-not-done-regexp (concat = "\\<\\(" (mapconcat (quote regexp-quote) org-not-done-keywords "\\|") "\\= )\\>") org-todo-line-regexp (concat "^\\(\\*+\\)[ ]*\\(?:\\(" (mapconcat= (quote regexp-quote) org-todo-keywords-1 "\\|") "\\)\\>\\)? *\\(.*\\)") = org-nl-done-regexp (concat "[\n]\\*+[ ]+" "\\(?:" (mapconcat (quote rege= xp-quote) org-done-keywords "\\|") "\\)" "\\>") org-todo-line-tags-regexp= (concat "^\\(\\*+\\)[ ]*\\(?:\\(" (mapconcat (quote regexp-quote) org-t= odo-keywords-1 "\\|") "\\)\\>\\)? *\\(.*?\\([ ]:[a-zA-Z0-9:_@]+:[ ]*\\)= ?$\\)") org-looking-at-done-regexp (concat "^" "\\(?:" (mapconcat (quote = regexp-quote) org-done-keywords "\\|") "\\)" "\\>") org-deadline-regexp (= concat "\\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" = org-deadline-string " *<\\([^>]+\\)>") org-deadline-line-regexp (concat "= \\<\\(" org-deadline-string "\\).*") org-scheduled-regexp (concat "\\<" o= rg-scheduled-string) org-scheduled-time-r egexp (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>") org-closed-t= ime-regexp (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]") org-key= word-time-regexp (concat "\\<\\(" org-scheduled-string "\\|" org-deadline= -string "\\|" org-closed-string "\\|" org-clock-string "\\)" " *[[<]\\([^= ]>]+\\)[]>]") org-keyword-time-not-clock-regexp (concat "\\<\\(" org-sche= duled-string "\\|" org-deadline-string "\\|" org-closed-string "\\)" " *[= [<]\\([^]>]+\\)[]>]") org-maybe-keyword-time-regexp (concat "\\(\\<\\(" o= rg-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\= |" org-clock-string "\\)\\)?" " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\= {2\\} [^]\n>]*?[]>]\\|<%%([^\n>]*>\\)") org-planning-or-clock-line-re (co= ncat "\\(?:^[ ]*\\(" org-scheduled-string "\\|" org-deadline-string "\\|= " org-closed-string "\\|" org-clock-string "\\)\\>\\)")) (org-set-font-lo= ck-defaults))) (when (org-mode-p) (org-set-local (quote org-todo-kwd-alist) nil) (org-= set-local (quote org-todo-keywords-1) nil) (org-set-local (quote org-done= -keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local= (quote org-todo-sets) nil) (let ((re (org-make-options-regexp (quote ("C= ATEGORY" "SEQ_TODO" "PRI_TODO" "TYP_TODO" "STARTUP" "ARCHIVE" "TAGS" "LIN= K" "PRIORITIES")))) (splitre "[ ]+") kwds key value cat arch tags links = hw dws tail sep kws1 prio) (save-excursion (save-restriction (widen) (got= o-char (point-min)) (while (re-search-forward re nil t) (setq key (match-= string 1) value (org-match-string-no-properties 2)) (cond ((equal key "CA= TEGORY") (if (string-match "[ ]+$" value) (setq value (replace-match "" = t t value))) (setq cat (intern value))) ((equal key "SEQ_TODO") (push (co= ns (quote sequence) (org-split-string value splitre)) kwds)) ((equal key = "TYP_TODO") (push (cons (quote type) (org-split-string value splitre)) kw= ds)) ((equal key "TAGS") (setq tags (appe nd tags (org-split-string value splitre)))) ((equal key "LINK") (when (s= tring-match "^\\(\\S-+\\)[ ]+\\(.+\\)" value) (push (cons (match-string = 1 value) (org-trim (match-string 2 value))) links))) ((equal key "PRIORIT= IES") (setq prio (org-split-string " +" value))) ((equal key "STARTUP") (= let ((opts (org-split-string value splitre)) l var val) (while (setq l (p= op opts)) (when (setq l (assoc l org-startup-options)) (setq var (nth 1 l= ) val (nth 2 l)) (if (not (nth 3 l)) (set (make-local-variable var) val) = (if (not (listp (symbol-value var))) (set (make-local-variable var) nil))= (set (make-local-variable var) (symbol-value var)) (add-to-list var val)= ))))) ((equal key "ARCHIVE") (string-match " *$" value) (setq arch (repla= ce-match "" t t value)) (remove-text-properties 0 (length arch) (quote (f= ace t fontified t)) arch)))))) (and cat (org-set-local (quote org-categor= y) cat)) (when prio (if (< (length prio) 3) (setq prio (quote ("A" "C" "B= ")))) (setq prio (mapcar (quote string-to -char) prio)) (org-set-local (quote org-highest-priority) (aref (nth 0 p= rio) 0)) (org-set-local (quote org-lowest-priority) (aref (nth 1 prio) 0)= ) (org-set-local (quote org-default-priority) (aref (nth 2 prio) 0))) (an= d arch (org-set-local (quote org-archive-location) arch)) (and links (set= q org-link-abbrev-alist-local (nreverse links))) (unless kwds (setq kwds = (default-value (quote org-todo-keywords))) (if (stringp (car kwds)) (setq= kwds (list (cons org-todo-interpretation (default-value (quote org-todo-= keywords)))))) (setq kwds (reverse kwds))) (setq kwds (nreverse kwds)) (l= et (inter kws) (while (setq kws (pop kwds)) (setq inter (pop kws) sep (me= mber "|" kws) kws1 (delete "|" (copy-sequence kws)) hw (car kws1) dws (if= sep (cdr sep) (last kws1)) tail (list inter hw (car dws) (org-last dws))= ) (add-to-list (quote org-todo-heads) hw (quote append)) (push kws1 org-t= odo-sets) (setq org-done-keywords (append org-done-keywords dws nil)) (ma= pc (lambda (x) (push (cons x tail) org-to do-kwd-alist)) kws1) (setq org-todo-keywords-1 (append org-todo-keywords= -1 kws1 nil))) (setq org-todo-sets (nreverse org-todo-sets) org-todo-kwd-= alist (nreverse org-todo-kwd-alist))) (when tags (let (e tgs) (while (set= q e (pop tags)) (cond ((equal e "{") (push (quote (:startgroup)) tgs)) ((= equal e "}") (push (quote (:endgroup)) tgs)) ((string-match "^\\([0-9a-zA= -Z_@]+\\)(\\(.\\))$" e) (push (cons (match-string 1 e) (string-to-char (m= atch-string 2 e))) tgs)) (t (push (list e) tgs)))) (org-set-local (quote = org-tag-alist) nil) (while (setq e (pop tgs)) (or (and (stringp (car e)) = (assoc (car e) org-tag-alist)) (push e org-tag-alist)))))) (if (not org-d= one-keywords) (setq org-done-keywords (list (org-last org-todo-keywords-1= )))) (setq org-ds-keyword-length (+ 2 (max (length org-deadline-string) (= length org-scheduled-string))) org-not-done-keywords (org-delete-all org-= done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp (conca= t "\\<\\(" (mapconcat (quote regexp-quote ) org-todo-keywords-1 "\\|") "\\)\\>") org-not-done-regexp (concat "\\<\= \(" (mapconcat (quote regexp-quote) org-not-done-keywords "\\|") "\\)\\>"= ) org-todo-line-regexp (concat "^\\(\\*+\\)[ ]*\\(?:\\(" (mapconcat (quo= te regexp-quote) org-todo-keywords-1 "\\|") "\\)\\>\\)? *\\(.*\\)") org-n= l-done-regexp (concat "[\n]\\*+[ ]+" "\\(?:" (mapconcat (quote regexp-qu= ote) org-done-keywords "\\|") "\\)" "\\>") org-todo-line-tags-regexp (con= cat "^\\(\\*+\\)[ ]*\\(?:\\(" (mapconcat (quote regexp-quote) org-todo-k= eywords-1 "\\|") "\\)\\>\\)? *\\(.*?\\([ ]:[a-zA-Z0-9:_@]+:[ ]*\\)?$\\)= ") org-looking-at-done-regexp (concat "^" "\\(?:" (mapconcat (quote regex= p-quote) org-done-keywords "\\|") "\\)" "\\>") org-deadline-regexp (conca= t "\\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" org-d= eadline-string " *<\\([^>]+\\)>") org-deadline-line-regexp (concat "\\<\\= (" org-deadline-string "\\).*") org-scheduled-regexp (concat "\\<" org-sc= heduled-string) org-scheduled-time-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>") org-closed-time-r= egexp (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]") org-keyword-= time-regexp (concat "\\<\\(" org-scheduled-string "\\|" org-deadline-stri= ng "\\|" org-closed-string "\\|" org-clock-string "\\)" " *[[<]\\([^]>]+\= \)[]>]") org-keyword-time-not-clock-regexp (concat "\\<\\(" org-scheduled= -string "\\|" org-deadline-string "\\|" org-closed-string "\\)" " *[[<]\\= ([^]>]+\\)[]>]") org-maybe-keyword-time-regexp (concat "\\(\\<\\(" org-sc= heduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" or= g-clock-string "\\)\\)?" " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}= [^]\n>]*?[]>]\\|<%%([^\n>]*>\\)") org-planning-or-clock-line-re (concat = "\\(?:^[ ]*\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org= -closed-string "\\|" org-clock-string "\\)\\>\\)")) (org-set-font-lock-de= faults)) org-set-regexps-and-options() # bind (delay-mode-hooks) (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-= mode)) (setq mode-name "Org") (progn (if (get (quote outline-mode) (quote= mode-class)) (put (quote org-mode) (quote mode-class) (get (quote outlin= e-mode) (quote mode-class)))) (unless (keymap-parent org-mode-map) (set-k= eymap-parents org-mode-map (list (current-local-map)))) (derived-mode-mer= ge-syntax-tables (syntax-table) org-mode-syntax-table)) (use-local-map or= g-mode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-t= able org-mode-abbrev-table) (if (featurep (quote xemacs)) (when (boundp (= quote outline-mode-menu-heading)) (easy-menu-remove outline-mode-menu-hea= ding) (easy-menu-remove outline-mode-menu-show) (easy-menu-remove outline= -mode-menu-hide)) (define-key org-mode-map [menu-bar headings] (quote und= efined)) (define-key org-mode-map [menu-bar hide] (quote undefined)) (def= ine-key org-mode-map [menu-bar show] (quote undefined))) (easy-menu-add o= rg-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (org-add-to-i= nvisibility-spec (quote (org-link)))) (org-add-to-invisibility-spec (quot= e (org-cwidth))) (when (featurep (quote xemacs)) (org-set-local (quote li= ne-move-ignore-invisible) t)) (setq outline-regexp "\\*+") (setq outline-= level (quote org-outline-level)) (when (and org-ellipsis (stringp org-ell= ipsis) (fboundp (quote set-display-table-slot)) (boundp (quote buffer-dis= play-table))) (unless org-display-table (setq org-display-table (make-dis= play-table))) (set-display-table-slot org-display-table 4 (string-to-vect= or org-ellipsis)) (setq buffer-display-table org-display-table)) (org-set= -regexps-and-options) (org-set-local (quote calc-embedded-open-mode) "# "= ) (modify-syntax-entry ?\# "<") (modify-syntax-entry ?@ "w") (if org-star= tup-truncated (setq truncate-lines t)) (org-set-local (quote font-lock-un= fontify-region-function) (quote org-unfontify-region)) (org-set-local (qu= ote org-table-may-need-update) t) (org-ad d-hook (quote before-change-functions) (quote org-before-change-function= ) nil (quote local)) (org-add-hook (quote kill-buffer-hook) (quote org-ch= eck-running-clock) nil (quote local)) (org-set-autofill-regexps) (setq in= dent-line-function (quote org-indent-line-function)) (org-update-radio-ta= rget-regexp) (org-set-local (quote comment-padding) " ") (if (or (feature= p (quote xemacs)) (not (boundp (quote outline-isearch-open-invisible-func= tion)))) (org-add-hook (quote isearch-mode-end-hook) (quote org-isearch-e= nd) (quote append) (quote local)) (org-set-local (quote outline-isearch-o= pen-invisible-function) (lambda (&rest ignore) (org-show-context (quote i= search))))) (if (and org-insert-mode-line-in-empty-file (interactive-p) (= =3D (point-min) (point-max))) (insert "# -*- mode: org -*-\n\n")) (unl= ess org-inhibit-startup (when org-startup-align-all-tables (let ((bmp (bu= ffer-modified-p))) (org-table-map-tables (quote org-table-align)) (set-bu= ffer-modified-p bmp))) (cond ((eq org-start up-folded t) (org-cycle (quote (4)))) ((eq org-startup-folded (quote con= tent)) (let ((this-command (quote org-cycle)) (last-command (quote org-cy= cle))) (org-cycle (quote (4))) (org-cycle (quote (4)))))))) (progn (make-local-variable (quote delay-mode-hooks)) (let ((delay-mode= -hooks t)) (outline-mode) (setq major-mode (quote org-mode)) (setq mode-n= ame "Org") (progn (if (get (quote outline-mode) (quote mode-class)) (put = (quote org-mode) (quote mode-class) (get (quote outline-mode) (quote mode= -class)))) (unless (keymap-parent org-mode-map) (set-keymap-parents org-m= ode-map (list (current-local-map)))) (derived-mode-merge-syntax-tables (s= yntax-table) org-mode-syntax-table)) (use-local-map org-mode-map) (set-sy= ntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbre= v-table) (if (featurep (quote xemacs)) (when (boundp (quote outline-mode-= menu-heading)) (easy-menu-remove outline-mode-menu-heading) (easy-menu-re= move outline-mode-menu-show) (easy-menu-remove outline-mode-menu-hide)) (= define-key org-mode-map [menu-bar headings] (quote undefined)) (define-ke= y org-mode-map [menu-bar hide] (quote undefined)) (define-key org-mode-ma= p [menu-bar show] (quote undefined))) (ea sy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agen= da-files-menu) (if org-descriptive-links (org-add-to-invisibility-spec (q= uote (org-link)))) (org-add-to-invisibility-spec (quote (org-cwidth))) (w= hen (featurep (quote xemacs)) (org-set-local (quote line-move-ignore-invi= sible) t)) (setq outline-regexp "\\*+") (setq outline-level (quote org-ou= tline-level)) (when (and org-ellipsis (stringp org-ellipsis) (fboundp (qu= ote set-display-table-slot)) (boundp (quote buffer-display-table))) (unle= ss org-display-table (setq org-display-table (make-display-table))) (set-= display-table-slot org-display-table 4 (string-to-vector org-ellipsis)) (= setq buffer-display-table org-display-table)) (org-set-regexps-and-option= s) (org-set-local (quote calc-embedded-open-mode) "# ") (modify-syntax-en= try ?\# "<") (modify-syntax-entry ?@ "w") (if org-startup-truncated (setq= truncate-lines t)) (org-set-local (quote font-lock-unfontify-region-func= tion) (quote org-unfontify-region)) (org- set-local (quote org-table-may-need-update) t) (org-add-hook (quote befo= re-change-functions) (quote org-before-change-function) nil (quote local)= ) (org-add-hook (quote kill-buffer-hook) (quote org-check-running-clock) = nil (quote local)) (org-set-autofill-regexps) (setq indent-line-function = (quote org-indent-line-function)) (org-update-radio-target-regexp) (org-s= et-local (quote comment-padding) " ") (if (or (featurep (quote xemacs)) (= not (boundp (quote outline-isearch-open-invisible-function)))) (org-add-h= ook (quote isearch-mode-end-hook) (quote org-isearch-end) (quote append) = (quote local)) (org-set-local (quote outline-isearch-open-invisible-funct= ion) (lambda (&rest ignore) (org-show-context (quote isearch))))) (if (an= d org-insert-mode-line-in-empty-file (interactive-p) (=3D (point-min) (po= int-max))) (insert "# -*- mode: org -*-\n\n")) (unless org-inhibit-sta= rtup (when org-startup-align-all-tables (let ((bmp (buffer-modified-p))) = (org-table-map-tables (quote org-table-alig n)) (set-buffer-modified-p bmp))) (cond ((eq org-startup-folded t) (org-= cycle (quote (4)))) ((eq org-startup-folded (quote content)) (let ((this-= command (quote org-cycle)) (last-command (quote org-cycle))) (org-cycle (= quote (4))) (org-cycle (quote (4))))))))) (delay-mode-hooks (outline-mode) (setq major-mode (quote org-mode)) (se= tq mode-name "Org") (progn (if (get (quote outline-mode) (quote mode-clas= s)) (put (quote org-mode) (quote mode-class) (get (quote outline-mode) (q= uote mode-class)))) (unless (keymap-parent org-mode-map) (set-keymap-pare= nts org-mode-map (list (current-local-map)))) (derived-mode-merge-syntax-= tables (syntax-table) org-mode-syntax-table)) (use-local-map org-mode-map= ) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-m= ode-abbrev-table) (if (featurep (quote xemacs)) (when (boundp (quote outl= ine-mode-menu-heading)) (easy-menu-remove outline-mode-menu-heading) (eas= y-menu-remove outline-mode-menu-show) (easy-menu-remove outline-mode-menu= -hide)) (define-key org-mode-map [menu-bar headings] (quote undefined)) (= define-key org-mode-map [menu-bar hide] (quote undefined)) (define-key or= g-mode-map [menu-bar show] (quote undefined))) (easy-menu-add org-org-men= u) (easy-menu-add org-tbl-menu) (org-inst all-agenda-files-menu) (if org-descriptive-links (org-add-to-invisibilit= y-spec (quote (org-link)))) (org-add-to-invisibility-spec (quote (org-cwi= dth))) (when (featurep (quote xemacs)) (org-set-local (quote line-move-ig= nore-invisible) t)) (setq outline-regexp "\\*+") (setq outline-level (quo= te org-outline-level)) (when (and org-ellipsis (stringp org-ellipsis) (fb= oundp (quote set-display-table-slot)) (boundp (quote buffer-display-table= ))) (unless org-display-table (setq org-display-table (make-display-table= ))) (set-display-table-slot org-display-table 4 (string-to-vector org-ell= ipsis)) (setq buffer-display-table org-display-table)) (org-set-regexps-a= nd-options) (org-set-local (quote calc-embedded-open-mode) "# ") (modify-= syntax-entry ?\# "<") (modify-syntax-entry ?@ "w") (if org-startup-trunca= ted (setq truncate-lines t)) (org-set-local (quote font-lock-unfontify-re= gion-function) (quote org-unfontify-region)) (org-set-local (quote org-ta= ble-may-need-update) t) (org-add-hook (qu ote before-change-functions) (quote org-before-change-function) nil (quo= te local)) (org-add-hook (quote kill-buffer-hook) (quote org-check-runnin= g-clock) nil (quote local)) (org-set-autofill-regexps) (setq indent-line-= function (quote org-indent-line-function)) (org-update-radio-target-regex= p) (org-set-local (quote comment-padding) " ") (if (or (featurep (quote x= emacs)) (not (boundp (quote outline-isearch-open-invisible-function)))) (= org-add-hook (quote isearch-mode-end-hook) (quote org-isearch-end) (quote= append) (quote local)) (org-set-local (quote outline-isearch-open-invisi= ble-function) (lambda (&rest ignore) (org-show-context (quote isearch))))= ) (if (and org-insert-mode-line-in-empty-file (interactive-p) (=3D (point= -min) (point-max))) (insert "# -*- mode: org -*-\n\n")) (unless org-in= hibit-startup (when org-startup-align-all-tables (let ((bmp (buffer-modif= ied-p))) (org-table-map-tables (quote org-table-align)) (set-buffer-modif= ied-p bmp))) (cond ((eq org-startup-folded=20 t) (org-cycle (quote (4)))) ((eq org-startup-folded (quote content)) (le= t ((this-command (quote org-cycle)) (last-command (quote org-cycle))) (or= g-cycle (quote (4))) (org-cycle (quote (4)))))))) org-mode() # bind (alist mode name keep-going) # (unwind-protect ...) # bind (just-from-file-name) set-auto-mode() #() # (unwind-protect ...) call-with-condition-handler(# #) # (condition-case ... . ((error))) # bind (find-file) normal-mode(t) # bind (nomodes after-find-file-from-revert-buffer noauto warn error) after-find-file(nil t) # (unwind-protect ...) # bind (inhibit-read-only error number truename rawfile nowarn filename= buf) find-file-noselect-1(# "/home/wknaka/doit/hi.org" nil = nil "/home/wknaka/doit/hi.org" (1786546 772)) byte-code("..." [number truename rawfile nowarn filename buf set-buffer= -major-mode find-file-noselect-1] 7) # (condition-case ... . ((t (byte-code "=C2=08!=88=C3 @ A\"=87" [buf da= ta kill-buffer signal] 3)))) # bind (number truename buf wildcards rawfile nowarn filename) find-file-noselect("/home/wknaka/doit/hi.org" nil nil nil) # bind (wildcards codesys filename) find-file("/home/wknaka/doit/hi.org") # bind (line path client frame device dest-frame new-frame old-device-n= um quick view flags list type) gnuserv-edit-files((x ":0.0") ((1 . "/home/wknaka/doit/hi.org"))) eval((gnuserv-edit-files (quote (x ":0.0")) (quote ((1 . "/home/wknaka/= doit/hi.org"))))) byte-code("..." [header gnuserv-string eval read-from-string] 4) # (condition-case ... . ((error (byte-code "=C3=10\n=AB=85=C4\n \"=88=C5= =12=C6 @ A\"=87" [gnuserv-string oops gnuserv-current-client "" gnuserv-w= rite-to-client nil signal] 3)) (quit (byte-code "=C3=11\n=AB=85=C4\n=08\"= =88=C5=12=C6=C7=C5\"=87" [oops gnuserv-string gnuserv-current-client "" g= nuserv-write-to-client nil signal quit] 3)))) # bind (header string proc) gnuserv-process-filter(# "5 (gnu= serv-edit-files '(x \":0.0\") '((1 . \"/home/wknaka/doit/hi.org\")))=04") ("execute_internal_event()" "[internal]") (dispatch-event "[internal]") # (condition-case ... . error) # (catch top-level ...)