From 894e93d7594f26f0ca40834fefa4c3ff17973863 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Sat, 27 Oct 2012 22:07:13 +0200 Subject: [PATCH] Orgpan: quiet byte-compiler * contrib/lisp/org-panel.el: don't setq undefined and otherwise unused variable orgpan-this-panel-window * contrib/lisp/org-panel.el (orgpan-check-panel-mode): fix format string of (error) * contrib/lisp/org-panel.el: declare variables viper-emacs-state-mode-list and viper-new-major-mode-buffer-list which are defined in viper.el TINYCHANGE --- contrib/lisp/org-panel.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/contrib/lisp/org-panel.el b/contrib/lisp/org-panel.el index 95876b46e..a732027b8 100644 --- a/contrib/lisp/org-panel.el +++ b/contrib/lisp/org-panel.el @@ -133,8 +133,6 @@ active.)" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Hook functions etc -;;(defvar orgpan-this-panel-window nil) - (defun orgpan-delete-panel () "Remove the panel." (interactive) @@ -203,8 +201,7 @@ active.)" (unless (and orgpan-point (= (point) orgpan-point)) ;; Go backward so it is possible to click on a "button": - (orgpan-backward-field))))) - (setq orgpan-this-panel-window nil)) + (orgpan-backward-field)))))) (error (lwarn 't :warning "orgpan-post: %S" err)))) ;; (defun orgpan-window-config-change () @@ -294,7 +291,7 @@ active.)" (defun orgpan-check-panel-mode () (unless (derived-mode-p 'orgpan-mode) - (error "Not orgpan-mode in buffer: " major-mode))) + (error "Not orgpan-mode in buffer: %s" major-mode))) (defun orgpan-display-bindings-help () (orgpan-check-panel-mode) @@ -401,6 +398,9 @@ There can be only one such buffer at any time.") (defvar orgpan-point nil) ;;(make-variable-buffer-local 'orgpan-point) +(defvar viper-emacs-state-mode-list) +(defvar viper-new-major-mode-buffer-list) + (defun orgpan-avoid-viper-in-buffer () ;; Fix-me: This is ugly. However see `this-major-mode-requires-vi-state': (set (make-local-variable 'viper-emacs-state-mode-list) '(orgpan-mode))