Re: [Orgmode] XEmacs fix for small-temporary-file-directory
Hi Any chance we get this applied ? Ciao Volker >>>>> Volker Zell writes: > Hi > Can anyone please apply the following patch to ob-eval to make xemacs happy. > This was be the last reference to small-temporary-file-directory by the way. > --- ob-eval.el.orig 2010-11-01 13:58:45.0 +0100 > +++ ob-eval.el 2010-12-02 19:03:15.140625000 +0100 > @@ -138,9 +138,9 @@ > (if error-buffer > (make-temp-file > (expand-file-name "scor" > - (or (unless (featurep 'xemacs) > - small-temporary-file-directory) > - temporary-file-directory))) > +(if (featurep 'xemacs) > +(temp-directory) > + temporary-file-directory))) >nil)) > exit-status) > (if (or replace > Thanks > Volker > ___ > Emacs-orgmode mailing list > Please use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode -- DR. VOLKER ZELL | Principal Training Consultant | +49 211 74839 414 Oracle University Oracle Deutschland GmbH | Hamborner Str. 51 | 40472 Düsseldorf ORACLE Deutschland GmbH, Hauptverwaltung: Riesstraße 25, D-80992 München Geschäftsführer: Jürgen Kunz, Registergericht: Amtsgericht München, HRB 82775 ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] xemacs error when calling org-install
Hi Under xemacs when calling the following from org-mode-7.3 I get: (require 'org-install) -> Wrong number of arguments: custom-autoload, 3 This is because xemacs defines custom-autoload only with two arguments: `custom-autoload' is a compiled Lisp function -- loaded from "/misc/src/release/xemacs-21.5.28-3/src/xemacs-21.5.28/lisp/custom.elc" (custom-autoload SYMBOL LOAD) Documentation: Mark SYMBOL as autoloaded custom variable and add dependency LOAD. Ciao Volker ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] XEmacs fix for small-temporary-file-directory
Hi Can anyone please apply the following patch to ob-eval to make xemacs happy. This was be the last reference to small-temporary-file-directory by the way. --- ob-eval.el.orig 2010-11-01 13:58:45.0 +0100 +++ ob-eval.el 2010-12-02 19:03:15.140625000 +0100 @@ -138,9 +138,9 @@ (if error-buffer (make-temp-file (expand-file-name "scor" - (or (unless (featurep 'xemacs) - small-temporary-file-directory) - temporary-file-directory))) +(if (featurep 'xemacs) +(temp-directory) + temporary-file-directory))) nil)) exit-status) (if (or replace Thanks Volker ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] 7.01 & Xemacs 21.4.22: decompose-region is not known
> Uwe Brauer writes: > Hello > Since I can't submit a bug report I attach the error trace > when I try to open a file in org mode: Hi Uwe I'm also using 21.4.22. To send bug reports just copy org-colview-xemacs.el over org-colview.el To get rid of the (void-function decompose-region) error message I copied the following definition from mule-composite.el from xemacs-21.5-b28: (defun decompose-region (start end) "UNIMPLEMENTED. Decompose text in the current region. When called from a program, expects two arguments, positions (integers or markers) specifying the region." (interactive "r") (let ((modified-p (buffer-modified-p)) (buffer-read-only nil)) (remove-text-properties start end '(composition nil)) (set-buffer-modified-p modified-p))) Then org-mode started fine for me. But I had to do some other changes in order to execute source blocks with babel and produce html and pdf output. --- ob.el.orig 2010-08-07 09:00:28.0 +0200 +++ ob.el 2010-10-15 12:46:33.28125 +0200 @@ -258,7 +258,7 @@ '((:session . "none") (:results . "silent") (:exports . "results")) "Default arguments to use when evaluating an inline source block.") -(defvar org-babel-current-buffer-properties) +(defvar org-babel-current-buffer-properties nil) (make-variable-buffer-local 'org-babel-current-buffer-properties) (defvar org-babel-result-regexp --- org-latex.el.orig 2010-08-07 09:00:28.0 +0200 +++ org-latex.el2010-10-15 12:17:53.328125000 +0200 @@ -849,7 +849,7 @@ (save-match-data (shell-quote-argument file)) t t cmd))) - (shell-command cmd outbuf outbuf))) + (shell-command cmd outbuf))) (message "Processing LaTeX file...done") (if (not (file-exists-p pdffile)) (error "PDF file was not produced") --- ob-latex.el.orig2010-08-07 09:00:28.0 +0200 +++ ob-latex.el 2010-10-15 12:16:31.53125 +0200 @@ -137,7 +137,7 @@ (save-match-data (shell-quote-argument tex-file)) t t cmd))) -(shell-command cmd outbuf outbuf))) +(shell-command cmd outbuf))) (if (not (file-exists-p pdffile)) (error "PDF file was not produced from %s" tex-file) (set-window-configuration wconfig) These two patches are needed due to differences in the following function definitions: Emacs: (defvar symbol &optional initvalue docstring) XEmacs: (defvar SYMBOL INITVALUE DOCSTRING) Emacs: (shell-command command &optional output-buffer error-buffer) XEmacs: (shell-command COMMAND &optional OUTPUT-BUFFER) In addition the function number-sequence is not defined in XEmacs. So I copied the definition from the emacs distribution (in subr.el): (defun number-sequence (from &optional to inc) "Return a sequence of numbers from FROM to TO (both inclusive) as a list. INC is the increment used between numbers in the sequence and defaults to 1. So, the Nth element of the list is \(+ FROM \(* N INC)) where N counts from zero. TO is only included if there is an N for which TO = FROM + N * INC. If TO is nil or numerically equal to FROM, return \(FROM). If INC is positive and TO is less than FROM, or INC is negative and TO is larger than FROM, return nil. If INC is zero and TO is neither nil nor numerically equal to FROM, signal an error. This function is primarily designed for integer arguments. Nevertheless, FROM, TO and INC can be integer or float. However, floating point arithmetic is inexact. For instance, depending on the machine, it may quite well happen that \(number-sequence 0.4 0.6 0.2) returns the one element list \(0.4), whereas \(number-sequence 0.4 0.8 0.2) returns a list with three elements. Thus, if some of the arguments are floats and one wants to make sure that TO is included, one may have to explicitly write TO as \(+ FROM \(* N INC)) or use a variable whose value was computed with this exact expression. Alternatively, you can, of course, also replace TO with a slightly larger value \(or a slightly more negative value if INC is negative)." (if (or (not to) (= from to)) (list from) (or inc (setq inc 1)) (when (zerop inc) (error "The increment can not be zero")) (let (seq (n 0) (next from)) (if (> inc 0) (while (<= next to) (setq seq (cons next seq) n (1+ n) next (+ from (* n inc (while (>= next to) (setq seq (cons next seq) n (1+ n) next (+ from (* n inc) (nreverse seq Right now with these changes the latest org-mode works fine for me (at least for my usage pattern). > Uwe Brauer Ciao Volker ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] org-babel and Xemacs incompatibilities
> Volker Zell writes:
> Eric Schulte writes:
>> Hi,
>> A patch has just been applied to the org-mode repository which should
>> fix this issue.
>> Please let me know if the issue remains.
> This issue is gone now.but two others show up when executing code blocks
with C-c C-c
> in xemacs-21.4.22:
> Symbol's value as variable is void: small-temporary-file-directory
> which can be solved by copying the definition from files.el from
emacs-23.2
> and
> Symbol's function definition is void: line-number-at-pos
> which can be solved by downloading linum.el from
> o http://stud4.tuwien.ac.at/~e0225855/linum/linum.html
And two more
o Symbol's function definition is void: assoc-default when trying to display
an image
(assoc-default dlink apps-dlink (quote string-match))
(let ((match ...)) (if match (progn ... match) (progn ... nil)))
(or (and remp (cdr ...)) (and dirp (cdr ...)) (let (...) (if match ... ...))
(assoc-default dfile (org-apps-regexp-alist apps a-m-a-p) (quote string-match))
(cdr (assoc ext apps)) (cdr (assoc t apps)))
(setq cmd (or (and remp ...) (and dirp ...) (let ... ...) (assoc-default
dfile ... ...) (cdr ...) (cdr ...)))
(cond ((member in-emacs ...) (setq cmd ...)) (in-emacs (setq cmd ...)) (t
(setq cmd ...)))
(let* ((file ...) (file-apps ...) (apps ...) (apps-dlink ...) (remp ...)
(dirp ...) (file ...) (a-m-a-p ...) (dfile ...) (link ...) (dlink ...)
(old-buffer ...) (old-pos ...) (old-mode major-mode) ext cmd link-match-data)
(if (string-match "^.*\\.\\([a-zA-Z0-9]+\\.gz\\)$" dfile) (setq ext ...) (if
... ...)) (cond (... ...) (in-emacs ...) (t ...)) (when (eq cmd ...) (setq cmd
...)) (when (eq cmd ...) (setq cmd ...)) (when (eq cmd ...) (require ...)
(mailcap-parse-mailcaps) (let* ... ...)) (if (and ... ... ...) (error "No such
file: %s" file)) (cond (... ... ... ... ...) (... ... ... ...) (... ...) (t
...)) (and (org-mode-p) (eq old-mode ...) (or ... ...) (org-mark-ring-push
old-pos old-buffer)))
org-open-file("communication.png" nil nil nil)
(if (string-match "[*?{]" (file-name-nondirectory path)) (dired path)
(org-open-file path in-emacs line search))
(cond ((assoc type org-link-protocols) (funcall ... path)) ((equal type
"mailto") (let ... ... ... ...)) ((member type ...) (browse-url ...)) ((string=
type "doi") (browse-url ...)) ((member type ...) (browse-url ...)) ((string=
type "tags") (org-tags-view in-emacs path)) ((string= type "tree-match")
(org-occur ...)) ((string= type "file") (if ... ... ...) (if ... ... ...))
((string= type "news") (require ...) (org-gnus-follow-link path)) ((string=
type "shell") (let ... ...)) ((string= type "elisp") (let ... ...)) ((and ...
...)) ((string= type "thisfile") (if in-emacs ... ...) (let ... ...)) (t
(browse-url-at-point)))
(save-current-buffer (set-buffer (or reference-buffer ...)) (if (string-match
" +\\'" path) (setq path ...)) (if (and org-link-translation-function ...) (let
... ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...)
(... ...) (... ... ...) (... ... ...) (... ...) (... ...) (...) (... ... ...)
(t ...)))
(with-current-buffer (or reference-buffer (current-buffer)) (if (string-match
" +\\'" path) (setq path ...)) (if (and org-link-translation-function ...) (let
... ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...)
(... ...) (... ... ...) (... ... ...) (... ...) (... ...) (...) (... ... ...)
(t ...)))
(let (type path link line search (pos ...)) (catch (quote match)
(save-excursion ... ...) (when ... ... ...) (save-excursion ...)
(save-excursion ...) (when ... ... ...)) (unless path (error "No link found"))
(with-current-buffer (or reference-buffer ...) (if ... ...) (if ... ...) (cond
... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
(cond ((and ... ... ...) (or ... ...)) ((org-at-timestamp-p t)
(org-follow-timestamp-link)) ((or ... ...) (org-footnote-action)) (t (let ...
... ... ...)))
ad-Orig-org-open-at-point(nil nil)
org-open-at-point()
org-open-at-mouse(#)
call-interactively(org-open-at-mouse)
o Symbol's function definition is void: make-temp-file when using org-babel-dot
Debugger entered--Lisp error: (void-function make-temp-file)
(make-temp-file "org-babel-dot")
(let ((result-params ...) (out-file ...) (cmdline ...) (cmd ...) (in-file
...)) (with-temp-file in-file (insert body)) (message (concat cmd " " in-file "
" cmdline " -o " out-file)) (shell-command (concat cmd " " in-file " " cmdline
" -o " out-file)) out-file)
org-babel-execute:dot("digraph G {\n size=\"8,6\"\n ratio=expand\n edge
[dir=both]\n plcnet [shape=box, label=\"PLC Network\"]\n subgraph
cluster_wrapline {\nlabel=\"Wrapline Control System\"\ncolor=purple\n
subgraph {\nrank=same\nexec\nsharedmem [style=filled,
fillcolor=lightgrey, shape=box]\n}\nedge[style=dotted, dir=none]\n
exec -> opserver\nexec -> db\npl
Re: [Orgmode] org-babel and Xemacs incompatibilities
> Eric Schulte writes: > Hi, > A patch has just been applied to the org-mode repository which should > fix this issue. > Please let me know if the issue remains. This issue is gone now.but two others show up when executing code blocks with C-c C-c in xemacs-21.4.22: Symbol's value as variable is void: small-temporary-file-directory which can be solved by copying the definition from files.el from emacs-23.2 and Symbol's function definition is void: line-number-at-pos which can be solved by downloading linum.el from o http://stud4.tuwien.ac.at/~e0225855/linum/linum.html Ciao Volker ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] Xemacs incompatibilities
> Michael Sperber writes:
> Could you provide a little bit more context on what you did? I'm not
> very familiar with org-src (which I assume this is about), so a
> step-by-step recipe would help me greatly.
I'm using
o XEmacs 21.4 (patch 22) "Instant Classic" [Lucid] (i686-pc-cygwin, Mule) of
Sat Jan 31 2009 on vzell-de
Here the recipe:
* xemacs -no-init-file
* Evaluate in the *scratch* buffer
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(require 'org-install)
* Open a file test.org with the following contents:
#+BEGIN_SRC emacs-lisp -n
(setq a t)
#+END_SRC
* With the cursor inside the source code press C-c '
* An emacs-lisp buffer pops up with the following message in the minibuffer:
-> Edit, then exit with C-c ' (C-c and single quote)
* After editing press C-c ' again, and you're back in the org buffer with the
source code replaced
* Now try to save the buffer.
From now on, when you try to save any buffer you'll get
-> This is not a sub-editing buffer, something is wrong..
in the minibuffer
Ciao
Volker
___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] org-babel and Xemacs incompatibilities
Hi
When trying to do Source Code Execution with C-c C-c in Xeamcs with
org-babel-6.35i
I get:
args-out-of-range # 0 0
Debugger entered--Lisp error: (args-out-of-range # 0 0)
map-extents(# nil 0
0 nil nil text-prop)
set-text-properties(0 0 nil nil)
org-babel-clean-text-properties(nil)
org-babel-result-hash(("ruby" "\"This file was last evaluated on
#{Date.today}\"\n" ((:cache . "no") (:comments . "") (:exports . "code")
(:noweb . "no") (:results . "replace") (:session . "none") (:shebang . "")
(:tangle . "")) ""))
(let* ((info ...) (lang ...) (params ...) (new-hash ...) (old-hash ...) (body
...) (result-params ...) (result-type ...) (cmd ...) (dir ...)
(default-directory ...) (call-process-region-original ...) result)
(unwind-protect (flet ... ... ...) (setq call-process-region ...)))
org-babel-execute-src-block(nil ("ruby" "\"This file was last evaluated on
#{Date.today}\"\n" ((:cache . "no") (:comments . "") (:exports . "code")
(:noweb . "no") (:results . "replace") (:session . "none") (:shebang . "")
(:tangle . "")) ""))
(progn (org-babel-execute-src-block current-prefix-arg info) t)
(if info (progn (org-babel-execute-src-block current-prefix-arg info) t) nil)
(let ((info ...)) (if info (progn ... t) nil))
org-babel-execute-src-block-maybe()
run-hook-with-args-until-success(org-babel-execute-src-block-maybe)
(cond ((or ... org-occur-highlights org-latex-fragment-image-overlays) (and
... ...) (org-remove-occur-highlights)
(org-remove-latex-fragment-image-overlays) (message "Temporary
highlights/overlays removed from current buffer")) ((and ... ...) (funcall
org-finish-function)) ((run-hook-with-args-until-success ...)) ((or ... ...)
(call-interactively ...)) ((org-on-target-p) (call-interactively ...)) ((and
... ...) (call-interactively ...)) ((org-on-heading-p) (call-interactively
...)) ((org-at-table\.el-p) (message "Use C-c ' to edit table.el tables"))
((org-at-table-p) (org-table-maybe-eval-formula) (if arg ... ...)
(call-interactively ...)) ((or ... ...) (call-interactively ...))
((org-at-item-checkbox-p) (call-interactively ...)) ((org-at-item-p) (if arg
... ...)) ((save-excursion ... ...) (beginning-of-line 1) (save-excursion ...))
((save-excursion ... ...) (cond ... ...)) ((org-clock-update-time-maybe)) (t
(error "C-c C-c can do nothing useful at this location")))
(let ((org-enable-table-editor t)) (cond (... ... ... ... ...) (... ...)
(...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ...) (...
...) (... ...) (... ...) (... ... ...) (... ...) (...) (t ...)))
org-ctrl-c-ctrl-c(nil)
call-interactively(org-ctrl-c-ctrl-c)
Ciao
Volker
___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Xemacs incompatibilities
Hi I'm using org-6.35i 1.) org-babel-python.el requires (require 'python) whereas Xemacs wants (require 'python-mode) 2.) (require 'htmlize nil t) should be changed to (require 'htmlize) for Xemacs in org-exp.el 3.) When editing a src block with C-c ' in a temporary buffer in it's native mode and then switching back with C-c ' to the original org file, whenever I try to save a file with C-x C-s (not only the org file) I'll get the message This is not a sub-editing buffer, something is wrong... Any body seeing this ? Ciao Volker ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Error when switching on org-table minor mode in mail/message buffers
Hi
When trying to switch on org table minor mode in mail or message buffers
I get:
not a keyword: (org-at-table-p), ["Sort lines in region" org-table-sort-lines
(org-at-table-p) :keys "C-c ^"]
The folowing fixes it for me:
--- org.el 2008-02-19 09:14:57.0 +0100
+++ /tmp/org.el 2008-02-28 17:42:08.09375 +0100
@@ -11393,7 +11393,7 @@
["Move Row Down" org-metadown :active (org-at-table-p) :keys
"M-"]
["Delete Row" org-shiftmetaup :active (org-at-table-p) :keys
"M-S-"]
["Insert Row" org-shiftmetadown :active (org-at-table-p) :keys
"M-S-"]
-["Sort lines in region" org-table-sort-lines (org-at-table-p) :keys
"C-c ^"]
+["Sort lines in region" org-table-sort-lines :active (org-at-table-p)
:keys "C-c ^"]
"--"
["Insert Hline" org-table-insert-hline :active (org-at-table-p) :keys
"C-c -"])
("Rectangle"
Ciao
Volker
___
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] undo in org.el
> Carsten Dominik writes: > On 13Nov2007, at 12:44 PM, Tim O'Callaghan wrote: >> On 13/11/2007, Carsten Dominik <[EMAIL PROTECTED]> wrote: >>> Dammit, if I only had know about this earlier! I implemented >>> multibuffer undo for the agenda, sort-of by hand. This looks much >>> easier, but on this other hand it will not work on XEmacs. >>> >>> Sometimes I wander how many XEmacs users are out there, and if it is >>> still worth supporting it >>> >>> >>> - Carsten >>> >> >> If that was a call to Xemacs users to identify themselves, then here >> is one. Even though it is in the Emacs CVS tree now should not turn it >> into an Emacs only tool IMHO. > Well, the fact that it is in Emacs CVS has not kept me from > supporting XEmacs for quite a while now. But it is extra work and > requires catering for missing features and different implementations > - so it is important for me to know that this is used and still > appreciated. > How about someone stepping forward and trying to release an XEmacs > package containing noutline.el and org-mode? Anyone who feels up to > this? Because I will not have the time. I'm already maintaing XEmacs for cygwin. I will give it a try and ask on the XEmacs list how to proceed. At least I will release an org-mode package with the xemacs-sumo on cygwin. > - Carsten Ciao Volker ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] undo in org.el
> Carsten Dominik writes: > Dammit, if I only had know about this earlier! I implemented > multibuffer undo for the agenda, sort-of by hand. This looks much > easier, but on this other hand it will not work on XEmacs. > Sometimes I wander how many XEmacs users are out there, and if it is > still worth supporting it It is ... > - Carsten Ciao Volker ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] org-insert-link doesn't work on xemacs with org-5.02
Hi
When trying to insert a link I get the following error with latest org-5.02 and
xemacs:
Debugger entered--Lisp error: (wrong-type-argument listp "http:")
apply(debug error (wrong-type-argument listp "http:"))
edebug(error (wrong-type-argument listp "http:"))
all-completions("l" ("http:" "https:" "ftp:" "mailto:"; "file:" "news:";
"bbdb:" "vm:" "wl:" "mhe:" "rmail:" "gnus:" "shell:" "info:" "elisp:") nil)
hc-complete-stack-top("" nil t)
hc-complete()
#()
call-interactively(hc-self-insert-char)
read-minibuffer-internal("Link: ")
byte-code("..." [standard-output standard-input prompt recursion-depth
minibuffer-depth t read-minibuffer-internal] 2)
read-from-minibuffer("Link: " nil # nil tmphist nil nil)
completing-read("Link: " ("http:" "https:" "ftp:" "mailto:"; "file:" "news:";
"bbdb:" "vm:" "wl:" "mhe:" "rmail:" "gnus:" "shell:" "info:" "elisp:") nil nil
nil tmphist nil)
apply(completing-read ("Link: " ("http:" "https:" "ftp:" "mailto:"; "file:"
"news:"; "bbdb:" "vm:" "wl:" "mhe:" "rmail:" "gnus:" "shell:" "info:" "elisp:")
nil nil nil tmphist nil))
(let ((minibuffer-local-completion-map ...)) (org-defkey
minibuffer-local-completion-map " " (quote self-insert-command)) (apply (quote
completing-read) args))
org-completing-read("Link: " ("http:" "https:" "ftp:" "mailto:"; "file:"
"news:"; "bbdb:" "vm:" "wl:" "mhe:" "rmail:" "gnus:" "shell:" "info:" "elisp:")
nil nil nil tmphist nil)
(edebug-after (edebug-before 184) 203 (org-completing-read "Link: "
(edebug-after ... 195 ...) nil nil nil (quote tmphist) (edebug-after ... 202
...)))
(setq link (edebug-after (edebug-before 184) 203 (org-completing-read "Link:
" ... nil nil nil ... ...)))
(edebug-after (edebug-before 183) 204 (setq link (edebug-after ... 203 ...)))
(unwind-protect (edebug-after (edebug-before 183) 204 (setq link ...))
(edebug-after (edebug-before 205) 207 (set-window-configuration ...))
(edebug-after (edebug-before 208) 209 (kill-buffer "*Org Links*")))
(edebug-after (edebug-before 182) 210 (unwind-protect (edebug-after ... 204
...) (edebug-after ... 207 ...) (edebug-after ... 209 ...)))
(cond ((edebug-after ... 24 ...) (edebug-after ... 32 ...) (edebug-after ...
40 ...) (edebug-after ... 48 ...)) ((edebug-after ... 56 ...) (edebug-after ...
70 ...)) ((edebug-after ... 73 ...) (edebug-after ... 77 ...) (edebug-after ...
142 ...)) (t (edebug-after ... 158 ...) (edebug-after ... 173 ...)
(edebug-after ... 181 ...) (edebug-after ... 210 ...) (edebug-after ... 216
...) (edebug-after ... 223 ...) (edebug-after ... 244 ...) (edebug-after ...
260 ...)))
(edebug-after (edebug-before 21) 261 (cond (... ... ... ...) (... ...) (...
... ...) (t ... ... ... ... ... ... ... ...)))
(let ((wcf ...) (region ...) tmphist link desc entry remove file)
(edebug-after (edebug-before 21) 261 (cond ... ... ... ...)) (edebug-after
(edebug-before 262) 274 (if ... ...)) (edebug-after (edebug-before 275) 305
(when ... ...)) (edebug-after (edebug-before 306) 374 (when ... ...))
(edebug-after (edebug-before 375) 379 (setq desc ...)) (edebug-after
(edebug-before 380) 386 (unless ... ...)) (edebug-after (edebug-before 387) 392
(if ... ...)) (edebug-after (edebug-before 393) 398 (insert ...)))
(edebug-after (edebug-before 0) 399 (let (... ... tmphist link desc entry
remove file) (edebug-after ... 261 ...) (edebug-after ... 274 ...)
(edebug-after ... 305 ...) (edebug-after ... 374 ...) (edebug-after ... 379
...) (edebug-after ... 386 ...) (edebug-after ... 392 ...) (edebug-after ...
398 ...)))
(lambda nil (edebug-after (edebug-before 0) 399 (let ... ... ... ... ... ...
... ... ...)))()
edebug-enter(org-insert-link (nil) (lambda nil (edebug-after (edebug-before
0) 399 (let ... ... ... ... ... ... ... ... ...
edebug-enter(org-insert-link (nil) (lambda nil (edebug-after (edebug-before
0) 399 (let ... ... ... ... ... ... ... ... ...
org-insert-link(nil)
call-interactively(org-insert-link)
Ciao
Volker
___
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
