[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/boxquote 04afee4651 09/31: Move from cl to cl-lib
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/boxquote 04afee4651 09/31: Move from cl to cl-lib |
Date: |
Sat, 1 Jan 2022 01:58:26 -0500 (EST) |
branch: elpa/boxquote
commit 04afee4651d071a86e699e23f65f8ea3dfeaba6a
Author: Dave Pearson <davep@davep.org>
Commit: Dave Pearson <davep@davep.org>
Move from cl to cl-lib
---
boxquote.el | 29 +++++++++++++++--------------
1 file changed, 15 insertions(+), 14 deletions(-)
diff --git a/boxquote.el b/boxquote.el
index 3390422e91..07508b1d5a 100644
--- a/boxquote.el
+++ b/boxquote.el
@@ -5,6 +5,7 @@
;; Version: 1.23
;; Keywords: quoting
;; URL: https://github.com/davep/boxquote.el
+;; Package-Requires: ((cl-lib "0.5"))
;; boxquote.el is free software distributed under the terms of the GNU
;; General Public Licence, version 2 or (at your option) any later version.
@@ -50,7 +51,7 @@
;; Things we need:
(eval-when-compile
- (require 'cl))
+ (require 'cl-lib))
(require 'rect)
;; Customize options.
@@ -193,12 +194,12 @@ boxquote is found."
(re-bottom (concat "^" (regexp-quote boxquote-bottom-corner)
(regexp-quote boxquote-top-and-tail)))
(points
- (flet ((find-box-end (re &optional back)
- (save-excursion
- (when (if back
- (search-backward-regexp re nil t)
- (search-forward-regexp re nil t))
- (point)))))
+ (cl-flet ((find-box-end (re &optional back)
+ (save-excursion
+ (when (if back
+ (search-backward-regexp re nil t)
+ (search-forward-regexp re nil t))
+ (point)))))
(cond ((looking-at re-top)
(cons (point) (find-box-end re-bottom)))
((looking-at re-left)
@@ -227,7 +228,7 @@ boxquote is found."
(defun boxquote-get-title ()
"Get the title for the current boxquote."
- (multiple-value-bind (prefix-len suffix-len)
+ (cl-multiple-value-bind (prefix-len suffix-len)
(with-temp-buffer
(let ((look-for "%s"))
(insert boxquote-title-format)
@@ -269,12 +270,12 @@ be formatted using `boxquote-title-format'."
(interactive "r")
(save-excursion
(save-restriction
- (flet ((bol-at-p (n)
- (setf (point) n)
- (bolp))
- (insert-corner (corner pre-break)
- (insert (concat (if pre-break "\n" "")
- corner boxquote-top-and-tail "\n"))))
+ (cl-flet ((bol-at-p (n)
+ (setf (point) n)
+ (bolp))
+ (insert-corner (corner pre-break)
+ (insert (concat (if pre-break "\n" "")
+ corner boxquote-top-and-tail "\n"))))
(let ((break-start (not (bol-at-p start)))
(break-end (not (bol-at-p end))))
(narrow-to-region start end)
- [nongnu] elpa/boxquote 33a1177db5 11/31: v1.24, (continued)
- [nongnu] elpa/boxquote 33a1177db5 11/31: v1.24, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote 1601259582 14/31: Add melpa badge, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote 775c3be429 19/31: Doc string updates, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote 3613e1d7cc 20/31: Simplify boxquote-describe-key, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote e167b9d325 26/31: loop -> cl-loop, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote bdc6c84b92 31/31: :bookmark: v2.2, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote 4c49b20466 01/31: First commit, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote 8a92c69542 02/31: Tidy up .gitignore, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote 6e570b8f15 06/31: Change URL where the source can always be found, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote f7e3ed83c2 07/31: Add package headers, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote 04afee4651 09/31: Move from cl to cl-lib,
ELPA Syncer <=
- [nongnu] elpa/boxquote f4498f6e3e 17/31: Tweak off indentation, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote 34f27a7d6c 13/31: Add melpa badge to the README, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote a6bf9f8abe 18/31: Move describe-function and describe-variable away from help quoting, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote 8a529c63c1 22/31: Tweak the README, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote d6b49938de 21/31: Support for XEmacs is dropped (for now)., ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote 7e47e0e285 28/31: Bump licence to GPL-3+, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote b37ad4dc96 04/31: Whitespace cleaning, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote 54b4e6191c 10/31: Take some hints from checkdoc, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote db9aa7d7d3 15/31: Rewrite boxquote-describe-function, ELPA Syncer, 2022/01/01
- [nongnu] elpa/boxquote b0239fb7b7 24/31: v2.0, ELPA Syncer, 2022/01/01