[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/inf-clojure 7de63df35f: Small fixes to make NonGNU ELPA ha
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/inf-clojure 7de63df35f: Small fixes to make NonGNU ELPA happier |
Date: |
Sat, 16 Jul 2022 12:58:41 -0400 (EDT) |
branch: elpa/inf-clojure
commit 7de63df35fd912fb04fde56a1c07862e0e22bfe4
Author: Bozhidar Batsov <bozhidar@batsov.dev>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>
Small fixes to make NonGNU ELPA happier
Thanks @monnier!
---
.gitignore | 4 ++++
inf-clojure.el | 25 +++++++++++++------------
2 files changed, 17 insertions(+), 12 deletions(-)
diff --git a/.gitignore b/.gitignore
index c724233be6..22372affa3 100644
--- a/.gitignore
+++ b/.gitignore
@@ -10,3 +10,7 @@ TAGS
dist
.vagrant/
.dir-locals?.el
+
+# ELPA-generated files
+/inf-clojure-autoloads.el
+/inf-clojure-pkg.el
diff --git a/inf-clojure.el b/inf-clojure.el
index 6e871ff709..9cc217de63 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -4,6 +4,7 @@
;; Authors: Bozhidar Batsov <bozhidar@batsov.dev>
;; Olin Shivers <shivers@cs.cmu.edu>
+;; Maintainer: Bozhidar Batsov <bozhidar@batsov.dev>
;; URL: http://github.com/clojure-emacs/inf-clojure
;; Keywords: processes, comint, clojure
;; Version: 3.2.0
@@ -212,8 +213,8 @@ If no-error is truthy don't error if feature is not
present."
(defun inf-clojure--update-feature (repl-type feature form)
"Return a copy of the datastructure containing the repl features.
-Given a REPL-TYPE ('clojure, 'lumo, ...) and a FEATURE ('doc,
-'apropos, ...) and a FORM this will return a new datastructure
+Given a REPL-TYPE (`clojure', `lumo', ...) and a FEATURE (`doc',
+`apropos', ...) and a FORM this will return a new datastructure
that can be set as `inf-clojure-repl-features'."
(let ((original (alist-get repl-type inf-clojure-repl-features)))
(if original
@@ -225,8 +226,8 @@ that can be set as `inf-clojure-repl-features'."
(defun inf-clojure-update-feature (repl-type feature form)
"Mutate the repl features to the new FORM.
-Given a REPL-TYPE ('clojure, 'lumo, ...) and a FEATURE ('doc,
-'apropos, ...) and a FORM this will set
+Given a REPL-TYPE (`clojure', `lumo', ...) and a FEATURE (`doc',
+`apropos', ...) and a FORM this will set
`inf-clojure-repl-features' with these new values."
(setq inf-clojure-repl-features (inf-clojure--update-feature repl-type
feature form)))
@@ -352,7 +353,7 @@ Either \"no process\" or \"buffer-name(repl-type)\""
map))
(defvar inf-clojure-insert-commands-map
- (let ((map (define-prefix-command 'inf-clojure-insert-commands-map)))
+ (let ((map (make-sparse-keymap)))
(define-key map (kbd "d") #'inf-clojure-insert-defun)
(define-key map (kbd "C-d") #'inf-clojure-insert-defun)
(define-key map (kbd "e") #'inf-clojure-insert-last-sexp)
@@ -369,7 +370,7 @@ Either \"no process\" or \"buffer-name(repl-type)\""
(define-key map (kbd "C-c C-r") #'inf-clojure-eval-region)
(define-key map (kbd "C-c M-r") #'inf-clojure-reload)
(define-key map (kbd "C-c C-n") #'inf-clojure-eval-form-and-next)
- (define-key map (kbd "C-c C-j") 'inf-clojure-insert-commands-map)
+ (define-key map (kbd "C-c C-j") inf-clojure-insert-commands-map)
(define-key map (kbd "C-c C-z") #'inf-clojure-switch-to-repl)
(define-key map (kbd "C-c C-i") #'inf-clojure-show-ns-vars)
(define-key map (kbd "C-c C-S-a") #'inf-clojure-apropos)
@@ -430,7 +431,7 @@ displaying function signatures in the modeline, but can also
cause multiple prompts to appear in the REPL and mess with *1,
*2, etc."
:type 'boolean
- :safe 'booleanp
+ :safe #'booleanp
:package-version '(inf-clojure . "3.2.0"))
;;;###autoload
@@ -926,10 +927,10 @@ Indent FORM. FORM is expected to have been trimmed."
(buffer-substring-no-properties (save-excursion (backward-sexp) (point))
(point))))
-;;; Now that inf-clojure-eval-/defun/region takes an optional prefix arg,
-;;; these commands are redundant. But they are kept around for the user
-;;; to bind if he wishes, for backwards functionality, and because it's
-;;; easier to type C-c e than C-u C-c C-e.
+;; Now that inf-clojure-eval-/defun/region takes an optional prefix arg,
+;; these commands are redundant. But they are kept around for the user
+;; to bind if he wishes, for backwards functionality, and because it's
+;; easier to type C-c e than C-u C-c C-e.
(defun inf-clojure-eval-region-and-go (start end)
"Send the current region to the inferior Clojure, and switch to its buffer.
@@ -1017,7 +1018,7 @@ display."
(if (zerop (length ans)) default ans))))
-;;; Adapted from function-called-at-point in help.el.
+;; Adapted from function-called-at-point in help.el.
(defun inf-clojure-fn-called-at-pt ()
"Return the name of the function called in the current call.
The value is nil if it can't find one."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/inf-clojure 7de63df35f: Small fixes to make NonGNU ELPA happier,
ELPA Syncer <=