equal
deleted
inserted
replaced
68 (insert-char ?\n) |
68 (insert-char ?\n) |
69 (insert-char ?_ 2) |
69 (insert-char ?_ 2) |
70 (insert-char ?\n 3) |
70 (insert-char ?\n 3) |
71 (backward-char)) |
71 (backward-char)) |
72 |
72 |
73 (defvar gadict-mode-map (make-sparse-keymap)) |
73 (defun gadict-setup-keymap () |
74 (define-key gadict-mode-map [C-return] 'gadict-new-entry) |
74 (define-key gadict-mode-map [C-return] 'gadict-new-entry)) |
75 |
75 |
76 ;;;###autoload |
76 ;;;###autoload |
77 (define-derived-mode gadict-mode fundamental-mode "gadict" |
77 (define-derived-mode gadict-mode fundamental-mode "gadict" |
78 "Derived mode for editing gadict dictionary source files." |
78 "Derived mode for editing gadict dictionary source files." |
79 (setq font-lock-defaults |
79 (setq font-lock-defaults |
80 '(gadict-font-lock-keywords |
80 '(gadict-font-lock-keywords |
81 t nil nil nil |
81 t nil nil nil |
82 (font-lock-multiline . t) |
82 (font-lock-multiline . t) |
83 )) |
83 )) |
84 (use-local-map gadict-mode-map) |
84 (gadict-setup-keymap) |
85 (modify-syntax-entry ?' ".") |
85 (modify-syntax-entry ?' ".") |
86 (modify-syntax-entry ?\" ".") |
86 (modify-syntax-entry ?\" ".") |
87 (make-local-variable 'paragraph-separate) |
87 (make-local-variable 'paragraph-separate) |
88 (setq paragraph-separate "\\([ \t\f]*\\|_\\{5,\\}\\)$") |
88 (setq paragraph-separate "\\([ \t\f]*\\|_\\{5,\\}\\)$") |
89 (make-local-variable 'paragraph-start) |
89 (make-local-variable 'paragraph-start) |