summaryrefslogtreecommitdiff
path: root/geiser-guile.el
diff options
context:
space:
mode:
Diffstat (limited to 'geiser-guile.el')
-rw-r--r--geiser-guile.el26
1 files changed, 15 insertions, 11 deletions
diff --git a/geiser-guile.el b/geiser-guile.el
index 750aa90..818e4de 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -62,7 +62,7 @@ good candidate for an entry in your project's .dir-locals.el."
(geiser-custom--defcustom geiser-guile-init-file "~/.guile-geiser"
"Initialization file with user code for the Guile REPL.
If all you want is to load ~/.guile, set
-`geiser-guile-load-init-file-p' instead."
+`geiser-guile-load-init-file' instead."
:type 'string)
(geiser-custom--defcustom geiser-guile-load-init-file nil
@@ -154,10 +154,14 @@ effect on new REPLs. For existing ones, use the command
(define-obsolete-variable-alias
'geiser-guile-case-sensitive-p 'geiser-guile-case-sensitive "0.26.2")
-(geiser-custom--defcustom geiser-guile-manual-lookup-other-window-p nil
+(geiser-custom--defcustom geiser-guile-manual-lookup-other-window nil
"Non-nil means pop up the Info buffer in another window."
:type 'boolean)
+(define-obsolete-variable-alias
+ 'geiser-guile-manual-lookup-other-window-p
+ 'geiser-guile-manual-lookup-other-window "0.26.2")
+
(geiser-custom--defcustom geiser-guile-manual-lookup-nodes
'("Guile" "guile-2.0")
"List of info nodes that, when present, are used for manual lookups."
@@ -246,7 +250,7 @@ This function uses `geiser-guile-init-file' if it exists."
(c-flags (when geiser-guile--conn-address
`(,(format "--listen=%s"
(geiser-guile--get-connection-address t)))))
- (q-flags (and (not geiser-guile-load-init-file-p) '("-q"))))
+ (q-flags (and (not geiser-guile-load-init-file) '("-q"))))
`(,@(and (listp geiser-guile-binary) (cdr geiser-guile-binary))
,@q-flags "-L" ,(geiser-guile-ensure-scheme-dir) ,@c-flags
,@(apply 'append (mapcar (lambda (p) (list "-L" p))
@@ -271,7 +275,7 @@ This function uses `geiser-guile-init-file' if it exists."
(mapconcat 'identity args " "))
(defun geiser-guile--debug-cmd (args)
- (let ((args (if (and geiser-guile-debug-show-full-bt-p
+ (let ((args (if (and geiser-guile-debug-show-full-bt
(string= (car args) "backtrace"))
'("backtrace" "#:full?" "#t")
args)))
@@ -391,7 +395,7 @@ This function uses `geiser-guile-init-file' if it exists."
(defun geiser-guile--enter-debugger ()
"Tell Geiser to interact with the debugger."
- (when geiser-guile-show-debug-help-p
+ (when geiser-guile-show-debug-help
(message "Debugger active. Press , for commands."))
nil)
@@ -524,8 +528,8 @@ it spawn a server thread."
(defun geiser-guile--set-up-declarative-modules ()
"Set up Guile to (not) use declarative modules.
-See `geiser-guile-use-declarative-modules-p'."
- (unless geiser-guile-use-declarative-modules-p
+See `geiser-guile-use-declarative-modules'."
+ (unless geiser-guile-use-declarative-modules
(let ((code '(begin (eval-when (expand) (user-modules-declarative? :f)) 'ok)))
(geiser-eval--send/wait code))))
@@ -541,7 +545,7 @@ See `geiser-guile-use-declarative-modules-p'."
(defun geiser-guile--startup (remote)
"Startup function, for a remote connection if REMOTE is t."
(geiser-guile--set-up-error-links)
- (let ((geiser-log-verbose-p t)
+ (let ((geiser-log-verbose t)
(g-load-path (buffer-local-value 'geiser-guile-load-path
(or geiser-repl--last-scm-buffer
(current-buffer)))))
@@ -585,9 +589,9 @@ See `geiser-guile-use-declarative-modules-p'."
(defun geiser-guile--manual-look-up (id _mod)
"Look for ID in the Guile manuals."
- (let ((info-lookup-other-window-flag geiser-guile-manual-lookup-other-window-p))
+ (let ((info-lookup-other-window-flag geiser-guile-manual-lookup-other-window))
(geiser-guile--info-lookup id)
- (when geiser-guile-manual-lookup-other-window-p
+ (when geiser-guile-manual-lookup-other-window
(switch-to-buffer-other-window "*info*"))))
@@ -613,7 +617,7 @@ See `geiser-guile-use-declarative-modules-p'."
(external-help geiser-guile--manual-look-up)
(check-buffer geiser-guile--guess)
(keywords geiser-guile--keywords)
- (case-sensitive geiser-guile-case-sensitive-p))
+ (case-sensitive geiser-guile-case-sensitive))
;;;###autoload
(geiser-activate-implementation 'guile)