Fix: Warning: assignment to free variable `dict-c5-mode-map'
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sun, 01 Mar 2015 13:25:07 +0200
changeset 1243 10a201706f1c
parent 1242 3ac891ab0ad6
child 1244 c8c010139c14
Fix: Warning: assignment to free variable `dict-c5-mode-map' Warning: reference to free variable `font-lock-beg' Warning: reference to free variable `font-lock-end'
dict-mode.el
--- a/dict-mode.el	Sun Mar 01 13:21:30 2015 +0200
+++ b/dict-mode.el	Sun Mar 01 13:25:07 2015 +0200
@@ -16,7 +16,7 @@
 
 ;;; Code:
 
-(setq dict-c5-mode-map (make-sparse-keymap))
+(defvar dict-c5-mode-map (make-sparse-keymap))
 ;; (define-key dict-c5-mode-map (kbd "RET") 'my-xxx)
 
 (defvar dict-c5-font-lock-keywords
@@ -26,6 +26,10 @@
     ("\\[[^]\n]+]" . font-lock-type-face)
     ))
 
+(eval-when-compile
+  (defvar font-lock-beg)
+  (defvar font-lock-end))
+
 (defun dict-c5-font-lock-extend-region ()
   "Look for '_____' expression and extend `font-lock-beg' and `font-lock-end'."
   ;; (message "%d:%d, %d lines" font-lock-beg font-lock-end (count-lines font-lock-beg font-lock-end))