From f6f2820fb9f8ec88e6778ff2a33890b282d23ce6 Mon Sep 17 00:00:00 2001 From: Syohei YOSHIDA Date: Sat, 1 Mar 2014 15:59:34 +0900 Subject: [PATCH] Fix some byte-compile warnings - declare functions for not loading module(popup-el, pos-tip) - declare variables which are used as buffer local variable - Use backward-delete-char instead of delete-backward-char - Fix demo --- ctable.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/ctable.el b/ctable.el index abfafef..868789f 100644 --- a/ctable.el +++ b/ctable.el @@ -43,6 +43,9 @@ (eval-when-compile (require 'cl)) +(declare-function popup-tip "popup") +(declare-function pos-tip-show "pos-tip") + ;;; Models and Parameters @@ -147,6 +150,9 @@ Emacs init file: (defvar ctbl:tooltip-method '(pos-tip popup minibuffer) "Preferred tooltip methods in order.") +(defvar ctbl:component) +(defvar ctbl:header-text) + ;;; Faces (defface ctbl:face-row-select @@ -1497,7 +1503,7 @@ This function assumes that the current buffer is the destination buffer." dest model (ctbl:cp-get-param cp) (ctbl:model-column-model model) rows (ctbl:async-state-column-widths astate) (ctbl:async-state-column-formats astate) begin-index) - (delete-backward-char 1) + (backward-delete-char 1) (ctbl:async-state-update-status cp 'normal) ;; append row data (side effect!) (setf (ctbl:component-sorted-data cp) @@ -1850,7 +1856,7 @@ WIDTH and HEIGHT are reference size of the table view." (setf (ctbl:param-bg-colors param) (lambda (model row-id col-id str) (cond ((string-match "CoCo" str) "LightPink") - ((= 0 (% (1- row-index) 2)) "Darkseagreen1") + ((= 0 (% (1- row-id) 2)) "Darkseagreen1") (t nil)))) (let ((cp (ctbl:create-table-component-buffer