[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/taxy 827462f 1/2: Example: (deffy) Rename bookmark func
From: |
ELPA Syncer |
Subject: |
[elpa] externals/taxy 827462f 1/2: Example: (deffy) Rename bookmark functions |
Date: |
Wed, 22 Sep 2021 23:57:22 -0400 (EDT) |
branch: externals/taxy
commit 827462f9dbe00fcd5295c42120fd0bd9e8561d82
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>
Example: (deffy) Rename bookmark functions
They're not really internal.
---
examples/deffy.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/examples/deffy.el b/examples/deffy.el
index 4677327..70cfefe 100644
--- a/examples/deffy.el
+++ b/examples/deffy.el
@@ -289,7 +289,7 @@ prefix, from all `deffy-mode' buffers."
(define-derived-mode deffy-mode magit-section-mode "Deffy"
:global nil
- (setq-local bookmark-make-record-function #'deffy--bookmark-make-record
+ (setq-local bookmark-make-record-function #'deffy-bookmark-make-record
revert-buffer-function #'deffy-revert))
;;;; Functions
@@ -389,15 +389,15 @@ prefix, from all `deffy-mode' buffers."
(defvar bookmark-make-record-function)
-(defun deffy--bookmark-make-record ()
+(defun deffy-bookmark-make-record ()
"Return a bookmark record for current Deffy buffer."
(list (concat "Deffy: %s" deffy-directory)
(cons 'directory deffy-directory)
(cons 'files deffy-files)
- (cons 'handler #'deffy--bookmark-handler)))
+ (cons 'handler #'deffy-bookmark-handler)))
;;;###autoload
-(defun deffy--bookmark-handler (record)
+(defun deffy-bookmark-handler (record)
"Show Deffy buffer for bookmark RECORD."
(pcase-let* ((`(,_ . ,(map directory files)) record))
(deffy :files files :project (project-current nil directory))