From: Jonas Bernoulli <jonas@bernoul.li>
To: emacs-orgmode@gnu.org
Cc: Jonas Bernoulli <jonas@bernoul.li>, lennart.borgman@gmail.com
Subject: [PATCH 2/2] Orgpan: quiet byte-compiler
Date: Sat, 27 Oct 2012 22:07:13 +0200 [thread overview]
Message-ID: <1351368433-4558-3-git-send-email-jonas@bernoul.li> (raw)
In-Reply-To: <1351368433-4558-1-git-send-email-jonas@bernoul.li>
* 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
next prev parent reply other threads:[~2012-10-27 20:08 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-10-03 13:32 [PATCH] Orgpan: resize the correct window Jonas Bernoulli
2012-10-03 13:47 ` Jonas Bernoulli
2012-10-26 13:10 ` Bastien
2012-10-27 20:07 ` [PATCH 0/2] Orgpan: resize " Jonas Bernoulli
2012-10-27 20:07 ` [PATCH 1/2] Orgpan: resize the " Jonas Bernoulli
2012-12-22 15:11 ` Bastien
2012-10-27 20:07 ` Jonas Bernoulli [this message]
2012-12-22 15:13 ` [PATCH 2/2] Orgpan: quiet byte-compiler Bastien
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1351368433-4558-3-git-send-email-jonas@bernoul.li \
--to=jonas@bernoul.li \
--cc=emacs-orgmode@gnu.org \
--cc=lennart.borgman@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).