Commit 57d1a3b5 authored by Dave Cooper's avatar Dave Cooper
Browse files

added support for user-startup-string in emacs startup

parent 9603297e
......@@ -209,12 +209,25 @@
(when (find-package :gendl) (in-package :gdl-user)))" *gendl-home*))
;;
;; DAP -- user can also setq this in ~/.emacs-gdl
;;
(defvar user-startup-string "")
(defun load-and-or-start-gendl ()
(setq slime-enable-evaluate-in-emacs t)
(slime-repl)
(insert gdl-startup-string)
(slime-repl-return)
(end-of-buffer))
(end-of-buffer)
;;
;; DAP -- Added to support user-startup-string
;;
(slime-repl-return)
(insert user-startup-string)
(slime-repl-return)
)
......@@ -332,6 +345,16 @@
(goto-char (point-max))
(insert gdl-startup-string)
(fi:inferior-lisp-newline)
(end-of-buffer)
;;
;; DAP - Added to support user-startup-string
;;
(end-of-buffer)
(goto-char (point-max))
(insert user-startup-string)
(fi:inferior-lisp-newline)
(end-of-buffer)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment