branch: externals/engrave-faces
commit c5c83ef42742315230b656b82c95db97fe6bc335
Author: TEC <t...@tecosaur.com>
Commit: TEC <t...@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.")
