From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jonas Bernoulli Subject: [PATCH 2/2] Orgpan: quiet byte-compiler Date: Sat, 27 Oct 2012 22:07:13 +0200 Message-ID: <1351368433-4558-3-git-send-email-jonas@bernoul.li> References: <87lifnn089.fsf@bernoul.li> <1351368433-4558-1-git-send-email-jonas@bernoul.li> Return-path: Received: from eggs.gnu.org ([208.118.235.92]:60790) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TSCg5-0002Nt-Cg for emacs-orgmode@gnu.org; Sat, 27 Oct 2012 16:08:18 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TSCg4-0000St-EG for emacs-orgmode@gnu.org; Sat, 27 Oct 2012 16:08:17 -0400 Received: from mail-ee0-f41.google.com ([74.125.83.41]:62665) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TSCg4-0000SQ-7C for emacs-orgmode@gnu.org; Sat, 27 Oct 2012 16:08:16 -0400 Received: by mail-ee0-f41.google.com with SMTP id c4so1803143eek.0 for ; Sat, 27 Oct 2012 13:08:16 -0700 (PDT) In-Reply-To: <1351368433-4558-1-git-send-email-jonas@bernoul.li> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Jonas Bernoulli , lennart.borgman@gmail.com * 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 95876b4..a732027 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)) -- 1.8.0.rc3.331.g5b9a629