forked from mirrors/org-mode
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
This commit is contained in:
parent
650748ae43
commit
894e93d759
|
@ -133,8 +133,6 @@ active.)"
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;;; Hook functions etc
|
;;; Hook functions etc
|
||||||
|
|
||||||
;;(defvar orgpan-this-panel-window nil)
|
|
||||||
|
|
||||||
(defun orgpan-delete-panel ()
|
(defun orgpan-delete-panel ()
|
||||||
"Remove the panel."
|
"Remove the panel."
|
||||||
(interactive)
|
(interactive)
|
||||||
|
@ -203,8 +201,7 @@ active.)"
|
||||||
(unless (and orgpan-point
|
(unless (and orgpan-point
|
||||||
(= (point) orgpan-point))
|
(= (point) orgpan-point))
|
||||||
;; Go backward so it is possible to click on a "button":
|
;; Go backward so it is possible to click on a "button":
|
||||||
(orgpan-backward-field)))))
|
(orgpan-backward-field))))))
|
||||||
(setq orgpan-this-panel-window nil))
|
|
||||||
(error (lwarn 't :warning "orgpan-post: %S" err))))
|
(error (lwarn 't :warning "orgpan-post: %S" err))))
|
||||||
|
|
||||||
;; (defun orgpan-window-config-change ()
|
;; (defun orgpan-window-config-change ()
|
||||||
|
@ -294,7 +291,7 @@ active.)"
|
||||||
|
|
||||||
(defun orgpan-check-panel-mode ()
|
(defun orgpan-check-panel-mode ()
|
||||||
(unless (derived-mode-p 'orgpan-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 ()
|
(defun orgpan-display-bindings-help ()
|
||||||
(orgpan-check-panel-mode)
|
(orgpan-check-panel-mode)
|
||||||
|
@ -401,6 +398,9 @@ There can be only one such buffer at any time.")
|
||||||
(defvar orgpan-point nil)
|
(defvar orgpan-point nil)
|
||||||
;;(make-variable-buffer-local 'orgpan-point)
|
;;(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 ()
|
(defun orgpan-avoid-viper-in-buffer ()
|
||||||
;; Fix-me: This is ugly. However see `this-major-mode-requires-vi-state':
|
;; Fix-me: This is ugly. However see `this-major-mode-requires-vi-state':
|
||||||
(set (make-local-variable 'viper-emacs-state-mode-list) '(orgpan-mode))
|
(set (make-local-variable 'viper-emacs-state-mode-list) '(orgpan-mode))
|
||||||
|
|
Loading…
Reference in a new issue