[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/shelisp 1552ca2 2/5: * packages/shelisp/shelisp.el: Fix
From: |
Stefan Monnier |
Subject: |
[elpa] externals/shelisp 1552ca2 2/5: * packages/shelisp/shelisp.el: Fix up copyright |
Date: |
Tue, 1 Dec 2020 17:08:34 -0500 (EST) |
branch: externals/shelisp
commit 1552ca2433f581bc63a63c525d1831c0dc045ae2
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* packages/shelisp/shelisp.el: Fix up copyright
Require cl-lib rather than cl-macs.
(shelisp-exec-lisp): Also use lexical-binding internally.
---
shelisp.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/shelisp.el b/shelisp.el
index 7d3cd98..2b5c38f 100644
--- a/shelisp.el
+++ b/shelisp.el
@@ -1,6 +1,6 @@
;;; shelisp.el --- execute elisp in shell -*- lexical-binding: t; -*-
-;; Copyright (C) 2018, 2019 Michael R. Mauger
+;; Copyright (C) 2018-2019 Free Software Foundation, Inc.
;; Author: Michael R. Mauger <michael@mauger.com>
;; Version: 0.9.0
@@ -85,7 +85,7 @@
;; the purpose is to create a valid elisp expression string.
;;; Code:
-(require 'cl-macs)
+(require 'cl-lib)
(require 'pp)
;;;###autoload
@@ -150,7 +150,8 @@ convert it to a string."
(condition-case err
(shelisp--result-as-string
(eval `(cl-flet ((f (file) (shelisp--file-name
file)))
- ,(read cmd))))
+ ,(read cmd))
+ t))
;; When an error occurs, replace with the error message
(error
(format "shelisp: `%s': %S" cmd err)))))