branch: elpa/scad-mode
commit 23e4a92342f97935221687256304d4f1767124f7
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Use when-let*
---
ob-scad.el | 4 ++--
scad-mode.el | 8 ++++----
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/ob-scad.el b/ob-scad.el
index b5a05318329..5c52aafee41 100644
--- a/ob-scad.el
+++ b/ob-scad.el
@@ -59,9 +59,9 @@
(alist-get :colorscheme params
(scad--preview-colorscheme)))
(format "--view=%s" (or (alist-get :view params)
(mapconcat #'identity
scad-preview-view ",")))
- (when-let (camera (alist-get :camera params))
+ (when-let* ((camera (alist-get :camera params)))
(format "--camera=%s" camera))
- (when-let (size (alist-get :size params))
+ (when-let* ((size (alist-get :size params)))
(format "--imgsize=%s" size))
infile)))
nil))
diff --git a/scad-mode.el b/scad-mode.el
index 590f2ecc018..940ff033512 100644
--- a/scad-mode.el
+++ b/scad-mode.el
@@ -5,7 +5,7 @@
;; Created: 2010
;; Keywords: languages
;; URL: https://github.com/openscad/emacs-scad-mode
-;; Package-Requires: ((emacs "28.1") (compat "30"))
+;; Package-Requires: ((emacs "29.1") (compat "30"))
;; Version: 97.0
;; This file is not part of GNU Emacs.
@@ -197,7 +197,7 @@ Options are .stl, .off, .amf, .3mf, .csg, .dxf, .svg, .pdf,
.png,
(defun scad-completion-at-point ()
"Completion at point function."
- (when-let (bounds (bounds-of-thing-at-point 'word))
+ (when-let* ((bounds (bounds-of-thing-at-point 'word)))
(list (car bounds) (cdr bounds)
scad-completions
:exclusive 'no)))
@@ -321,7 +321,7 @@ Options are .stl, .off, .amf, .3mf, .csg, .dxf, .svg, .pdf,
.png,
;; Setting the OPENSCADPATH to the current directory allows openscad
to pick
;; up other local files with `include <file.scad>'.
(("OPENSCADPATH"
- (if-let ((path (getenv "OPENSCADPATH")))
+ (if-let* ((path (getenv "OPENSCADPATH")))
(concat default-directory path-separator path)
default-directory)))
(setq scad--preview-proc
@@ -467,7 +467,7 @@ Options are .stl, .off, .amf, .3mf, .csg, .dxf, .svg, .pdf,
.png,
;; Setting the OPENSCADPATH to the current directory allows openscad
to pick
;; up other local files with `include <file.scad>'.
(("OPENSCADPATH"
- (if-let ((path (getenv "OPENSCADPATH")))
+ (if-let* ((path (getenv "OPENSCADPATH")))
(concat default-directory path-separator path)
default-directory)))
(setq
