commit f7db3280cc3f95c9c4c4eda34438570b914dc675 parent 2c431edb8b1650f46f924ac85b86c4d7db4b5113 Author: Tomas Hlavaty <tom@logand.com> Date: Tue, 20 Jul 2021 22:01:19 +0200 move buffer-local variable definitions to the top of the file those definitions seem to happen before use and i dont get any warning otherwise thanks to Leo Butler id:87pmvcdgqg.fsf@t14.reltub.ca Diffstat:
| M | emacs-framebuffer.el | | | 21 | ++++++++++----------- |
1 file changed, 10 insertions(+), 11 deletions(-)
diff --git a/emacs-framebuffer.el b/emacs-framebuffer.el @@ -67,6 +67,16 @@ :type 'string :group 'framebuffer) +(make-variable-buffer-local + (defvar framebuffer-image-mode-image-size)) +(make-variable-buffer-local + (defvar framebuffer-image-mode-npages)) +(make-variable-buffer-local + (defvar framebuffer-image-mode-current-page)) +(make-variable-buffer-local + (defvar framebuffer-image-mode-scale)) +(make-variable-buffer-local + (defvar framebuffer-image-mode-scroll)) (defun framebuffer-file-format (file) (let ((name (file-name-sans-versions file))) @@ -461,17 +471,6 @@ (interactive "^p") (framebuffer-image-file-dired-next (if arg (- arg) -1))) -(make-variable-buffer-local - (defvar framebuffer-image-mode-image-size)) -(make-variable-buffer-local - (defvar framebuffer-image-mode-npages)) -(make-variable-buffer-local - (defvar framebuffer-image-mode-current-page)) -(make-variable-buffer-local - (defvar framebuffer-image-mode-scale)) -(make-variable-buffer-local - (defvar framebuffer-image-mode-scroll)) - (defun framebuffer-image-mode-draw-image (&optional buffer) (interactive) (let ((buffer (or buffer (current-buffer)))