| Paste number 22497: | Unexpected behaviour |
| Pasted by: | fasta |
| 2 years, 5 months ago | |
| None | |
| Paste contents: |
| ;;What I typed: see below ;;I expected to have SLIME loaded in one window and then I would be automatically switched to main.scm in the other (thus this means that I expected to see the contents of the file main.scm ;;I observed that SLIME is loaded and stays rendered on my screen and I also see *scratch*, and not the contents of main.scm. ;;This is all the relevant code (eval-after-load 'slime48 '(progn (add-hook 'slime-mode-hook (lambda () (if (and (boundp 'scheme48-package) scheme48-package) (setq slime-buffer-package scheme48-package)))) (defun slime-init-output-buffer (connection) (with-current-buffer (slime-output-buffer t) (setq slime-buffer-connection connection) (setq slime-repl-directory-stack '()) (setq slime-repl-package-stack '()) (slime-repl-update-banner))) (defslime-repl-shortcut slime-repl-push-directory ("push-directory" "+d" "pushd") (:handler (lambda (directory) (interactive (list (read-directory-name "Push directory: " (slime-eval '(swank:default-directory)) nil nil ""))) (push (slime-eval '(swank:default-directory)) slime-repl-directory-stack) (slime-set-default-directory directory))) (:one-liner "Save the current directory and set it to a new one.")) (defslime-repl-shortcut slime-repl-pop-directory ("pop-directory" "-d" "popd") (:handler (lambda () (interactive) (if (null slime-repl-directory-stack) (message "Directory stack is empty.") (slime-set-default-directory (pop slime-repl-directory-stack))))) (:one-liner "Restore the last saved directory.")) (defslime-repl-shortcut slime-repl-push-package ("push-package" "+p") (:handler (lambda (package) (interactive (list (slime-read-package-name "Package: "))) (push (slime-lisp-package) slime-repl-package-stack) (slime-repl-set-package package))) (:one-liner "Save the current package and set it to a new one.")) (defslime-repl-shortcut slime-repl-pop-package ("pop-package" "-p") (:handler (lambda () (interactive) (if (null slime-repl-package-stack) (message "Package stack is empty.") (slime-repl-set-package (pop slime-repl-package-stack))))) (:one-liner "Restore the last saved package.")) (print "bar") (print "bar") (print "bar") (print "bar") (split-window) (find-file "main.scm") (print "bar") (print "bar") (print "bar") (print "bar") (print "bar") (print "bar") )) |
This paste has no annotations.