Mercurial Mercurial > gadict / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix: Warning: assignment to free variable `dict-c5-mode-map'
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sun, 01 Mar 2015 13:25:07 +0200
changeset 334 95ccf76a6c7f
parent 333 22928defcb53
child 335 8732c7c894af
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'
obsolete/dict-c5-mode.el file | annotate | diff | comparison | revisions 
--- a/obsolete/dict-c5-mode.el	Sun Aug 12 11:07:43 2012 +0300
+++ b/obsolete/dict-c5-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))
gadict