diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2021-10-24 23:56:30 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2021-10-25 22:51:32 -0400 |
| commit | b27c8d3d0d286c445888e22c75f8811f457c13f9 (patch) | |
| tree | a5f2cc59057d6bbc88b53c05c82a36b22304ed60 | |
| parent | 79885833b7268b921b0471fc2429089b39811e85 (diff) | |
| download | piem-b27c8d3d0d286c445888e22c75f8811f457c13f9.tar.gz | |
lei: Rename piem-lei-show-mid to piem-lei-buffer-mid
The new name aligns more closely with the piem-lei-buffer-query and
piem-lei-buffer-args buffer-local variables introduced a few commits
back.
Message-Id: <20211025035630.297598-11-kyle@kyleam.com>
| -rw-r--r-- | piem-lei.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/piem-lei.el b/piem-lei.el index 2f09c38..ffd72f3 100644 --- a/piem-lei.el +++ b/piem-lei.el @@ -93,7 +93,7 @@ If BUFFER is nil, the current buffer is used." '((t :inherit message-cited-text-4)) "Face for 4th-level cited text in `piem-lei-show-mode' buffers.") -(defvar-local piem-lei-show-mid nil +(defvar-local piem-lei-buffer-mid nil "Message ID shown in current buffer.") (defvar-local piem-lei-buffer-args nil @@ -153,7 +153,7 @@ unless DISPLAY is non-nil." (1+ (line-end-position)))) (piem-lei-show-mode) (setq piem-lei-buffer-args args) - (setq piem-lei-show-mid mid) + (setq piem-lei-buffer-mid mid) (setq piem-lei-buffer-query query) (piem-lei-show--fontify-headers)) (if display @@ -339,7 +339,7 @@ line's message, scroll its text upward, passing ARG to (let ((w (piem-lei-query--get-visible-message-window))) (if (and w (equal (with-current-buffer (window-buffer w) - piem-lei-show-mid) + piem-lei-buffer-mid) mid)) (with-selected-window w (scroll-up-command arg)) @@ -723,7 +723,7 @@ ARGS is passed to the underlying `lei q' call." (goto-char (or pt-final (point-min))) (piem-lei-query-mode) (setq piem-lei-buffer-args args) - (setq piem-lei-show-mid mid) + (setq piem-lei-buffer-mid mid) (setq piem-lei-buffer-query query) (pop-to-buffer-same-window (current-buffer))))) @@ -733,7 +733,7 @@ ARGS is passed to the underlying `lei q' call." (defun piem-lei-get-mid () "Return the message ID of a lei buffer." (cond ((derived-mode-p 'piem-lei-show-mode) - piem-lei-show-mid) + piem-lei-buffer-mid) ((derived-mode-p 'piem-lei-query-mode) (piem-lei-query-get-mid)))) |