emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/engrave-faces c5c83ef 08/36: Fix invalid docstring in m


From: ELPA Syncer
Subject: [elpa] externals/engrave-faces c5c83ef 08/36: Fix invalid docstring in macro, remove unused func
Date: Tue, 31 Aug 2021 01:57:24 -0400 (EDT)

branch: externals/engrave-faces
commit c5c83ef42742315230b656b82c95db97fe6bc335
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@tecosaur.com>

    Fix invalid docstring in macro, remove unused func
---
 engrave-faces.el | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/engrave-faces.el b/engrave-faces.el
index a92dd60..331a48e 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -43,21 +43,11 @@
   `(progn (add-to-list 'engrave-faces--backends
                        (list ,name :face-transformer ,face-transformer 
:extension ,extension))
           (defun ,(intern (concat "engrave-faces-" name "-buffer")) ()
-            (concat "Convert buffer to " ,name " formatting")
+            ,(concat "Convert buffer to " name " formatting")
             (engrave-faces-buffer-1 ,name))
           (defvar ,(intern (concat "engrave-faces-" name "-before-hook")) nil)
           (defvar ,(intern (concat "engrave-faces-" name "-after-hook")) nil)))
 
-(defun engrave-faces-region-for-paste (beg end)
-  "Convert the region between BEG and END to ANSI."
-  (let ((engraved-buf (save-restriction
-                        (narrow-to-region beg end)
-                        (engrave-faces-buffer-1))))
-    (unwind-protect
-        (with-current-buffer engraved-buf
-          (buffer-string))
-      (kill-buffer engraved-buf))))
-
 (defvar engrave-faces-attributes-of-interest
   '(:foreground :background :slant :weight :height :strike-through)
   "Attributes which sould be paid attention to.")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]