# HG changeset patch # User Oleksandr Gavenko # Date 1425209107 -7200 # Node ID 95ccf76a6c7fd63492ccab6697ca2890f0675ea8 # Parent 22928defcb532076ef44f9928b9f8c554a3e8ff6 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' diff -r 22928defcb53 -r 95ccf76a6c7f obsolete/dict-c5-mode.el --- 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))