-
-
Save AndreaCrotti/362682 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Debugger entered--Lisp error: (void-function -mode) | |
-mode() | |
funcall(-mode) | |
(progn (insert body) (goto-char (point-min)) (funcall (intern ...)) (setq index (point)) (while (and ...) (save-match-data ...) (save-match-data ...) (save-match-data ...) (goto-char ...) (nb-add ...) (goto-char ...) (setq index ...) (nb-add ...)) (nb-add (buffer-substring index ...))) | |
(unwind-protect (progn (insert body) (goto-char ...) (funcall ...) (setq index ...) (while ... ... ... ... ... ... ... ... ...) (nb-add ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) | |
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ... ... ... ...) (and ... ...))) | |
(with-current-buffer temp-buffer (unwind-protect (progn ... ... ... ... ... ...) (and ... ...))) | |
(let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ... ...))) | |
(with-temp-buffer (insert body) (goto-char (point-min)) (funcall (intern ...)) (setq index (point)) (while (and ...) (save-match-data ...) (save-match-data ...) (save-match-data ...) (goto-char ...) (nb-add ...) (goto-char ...) (setq index ...) (nb-add ...)) (nb-add (buffer-substring index ...))) | |
(progn (fset (quote nb-add) (function* ...)) (with-temp-buffer (insert body) (goto-char ...) (funcall ...) (setq index ...) (while ... ... ... ... ... ... ... ... ...) (nb-add ...))) | |
(unwind-protect (progn (fset ... ...) (with-temp-buffer ... ... ... ... ... ...)) (if --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...))) | |
(let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (progn ... ...) (if --cl-letf-bound-- ... ...))) | |
(letf ((... ...)) (with-temp-buffer (insert body) (goto-char ...) (funcall ...) (setq index ...) (while ... ... ... ... ... ... ... ... ...) (nb-add ...))) | |
(letf* ((... ...)) (with-temp-buffer (insert body) (goto-char ...) (funcall ...) (setq index ...) (while ... ... ... ... ... ... ... ... ...) (nb-add ...))) | |
(flet ((nb-add ... ...)) (with-temp-buffer (insert body) (goto-char ...) (funcall ...) (setq index ...) (while ... ... ... ... ... ... ... ... ...) (nb-add ...))) | |
(let* ((parent-buffer ...) (info ...) (lang ...) (body ...) (new-body "") index source-name evaluate prefix) (flet (...) (with-temp-buffer ... ... ... ... ... ...)) new-body) | |
org-babel-expand-noweb-references(("" "(defun make-path (path)\n (concat conf path))\n" ((:cache . "no") (:noweb . "no") (:tangle . "yes") (:exports . "code") (:results . "replace") (:session . "none")) #("emacs-lisp " 0 11 (fontified t font-lock-fontified t face org-meta-line font-lock-multiline t)))) | |
(let* ((link ...) (info ...) (source-name ...) (src-lang ...) (body ...) (params ...) (spec ...) by-lang) (unless (string= ... "no") (unless ... ... ... ...))) | |
(progn (setq block-counter (+ 1 block-counter)) (let* (... ... ... ... ... ... ... by-lang) (unless ... ...))) | |
(unwind-protect (progn (setq block-counter ...) (let* ... ...)) (set-match-data save-match-data-internal (quote evaporate))) | |
(let ((save-match-data-internal ...)) (unwind-protect (progn ... ...) (set-match-data save-match-data-internal ...))) | |
(save-match-data (setq block-counter (+ 1 block-counter)) (let* (... ... ... ... ... ... ... by-lang) (unless ... ...))) | |
(while (re-search-forward org-babel-src-block-regexp nil t) (goto-char (match-beginning 0)) (save-match-data (setq block-counter ...) (let* ... ...)) (goto-char (match-end 0))) | |
(save-window-excursion (find-file (buffer-file-name)) (goto-char (point-min)) (while (re-search-forward org-babel-src-block-regexp nil t) (goto-char ...) (save-match-data ... ...) (goto-char ...))) | |
(let ((visited-p ...)) (save-window-excursion (find-file ...) (goto-char ...) (while ... ... ... ...)) (unless visited-p (kill-buffer ...))) | |
(org-babel-map-source-blocks (buffer-file-name) (setq block-counter (+ 1 block-counter)) (let* (... ... ... ... ... ... ... by-lang) (unless ... ...))) | |
(let ((block-counter 0) blocks) (org-babel-map-source-blocks (buffer-file-name) (setq block-counter ...) (let* ... ...)) (setq blocks (mapcar ... blocks)) blocks) | |
org-babel-tangle-collect-blocks(nil) | |
(mapc (lambda (by-lang) (let* ... ...)) (org-babel-tangle-collect-blocks lang)) | |
(let ((block-counter 0) path-collector) (mapc (lambda ... ...) (org-babel-tangle-collect-blocks lang)) (message "tangled %d code block%s" block-counter (if ... "" "s")) path-collector) | |
(save-excursion (let (... path-collector) (mapc ... ...) (message "tangled %d code block%s" block-counter ...) path-collector)) | |
org-babel-tangle(nil nil) | |
(save-window-excursion (find-file file) (org-babel-tangle target-file lang)) | |
org-babel-tangle-file("~/Documents/pycon/miniconf.org") | |
eval((org-babel-tangle-file (concat base "miniconf.org"))) | |
eval-last-sexp-1(nil) | |
eval-last-sexp(nil) | |
call-interactively(eval-last-sexp nil nil) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment