# HG changeset patch # User Oleksandr Gavenko # Date 1458593743 -7200 # Node ID 04caf7b9657c74843db7a1caef8ecdeef42b463c # Parent 0f500491f990ce5154b5bf12def0c519ea5fa177 Use same code for setting local variables. diff -r 0f500491f990 -r 04caf7b9657c contrib/gadict.el --- a/contrib/gadict.el Mon Mar 21 22:52:54 2016 +0200 +++ b/contrib/gadict.el Mon Mar 21 22:55:43 2016 +0200 @@ -28,22 +28,19 @@ ("^\\(?:n\\|v\\|phr\\.v\\|adj\\|adv\\|pron\\|prep\\|num\\|conj\\|int\\)$" . font-lock-type-face) )) (defun gadict-setup-comment () - (set (make-local-variable 'comment-start) "#") - (set (make-local-variable 'comment-continue) nil) - (set (make-local-variable 'comment-end) "") - (set (make-local-variable 'comment-end-skip) nil) - (set (make-local-variable 'comment-multi-line) nil) - (set (make-local-variable 'comment-use-syntax) t) ) + (set (make-local-variable 'comment-start) "#") + (set (make-local-variable 'comment-continue) nil) + (set (make-local-variable 'comment-end) "") + (set (make-local-variable 'comment-end-skip) nil) + (set (make-local-variable 'comment-multi-line) nil) + (set (make-local-variable 'comment-use-syntax) t) ) (defun gadict-setup-paragraph () - (make-local-variable 'paragraph-separate) - (setq paragraph-separate "__$") - (make-local-variable 'paragraph-start) - (setq paragraph-start "__$") ) + (set (make-local-variable 'paragraph-separate) "__$") + (set (make-local-variable 'paragraph-start) "__$") ) (defun gadict-setup-page () - (make-local-variable 'paragraph-separate) - (setq page-delimiter "__$")) + (set (make-local-variable 'page-delimiter) "__$") ) (defun gadict-setup-syntax () (modify-syntax-entry ?' "w"))