diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-05-15 00:08:03 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-05-15 00:08:03 -0400 |
| commit | 13973643c9e26a06239a6da13cc72cbd4a5ec22a (patch) | |
| tree | 2df68f5d45e695e040b244d2d078b8128a3ce46f /lisp | |
| parent | c26ea4b2a3136ad1870770c39969eda447e11e00 (diff) | |
| download | emacs-13973643c9e26a06239a6da13cc72cbd4a5ec22a.tar.gz emacs-13973643c9e26a06239a6da13cc72cbd4a5ec22a.tar.bz2 emacs-13973643c9e26a06239a6da13cc72cbd4a5ec22a.zip | |
* progmodes/prolog.el (prolog-mode): Use define-derived-mode.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/progmodes/prolog.el | 12 |
2 files changed, 4 insertions, 10 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 83e4012424b..32785d928cc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2010-05-15 Stefan Monnier <monnier@iro.umontreal.ca> + * progmodes/prolog.el (prolog-mode): Use define-derived-mode. + * pcomplete.el (pcomplete-completions-at-point): New function, extracted from pcomplete-std-complete. (pcomplete-std-complete): Use it. diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index 197b41506bd..5bca3502af9 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el @@ -136,26 +136,18 @@ When nil, send actual operating system end of file." )) ;;;###autoload -(defun prolog-mode () +(define-derived-mode prolog-mode prog-mode "Prolog" "Major mode for editing Prolog code for Prologs. Blank lines and `%%...' separate paragraphs. `%'s start comments. Commands: \\{prolog-mode-map} Entry to this mode calls the value of `prolog-mode-hook' if that value is non-nil." - (interactive) - (kill-all-local-variables) - (use-local-map prolog-mode-map) - (set-syntax-table prolog-mode-syntax-table) - (setq major-mode 'prolog-mode) - (setq mode-name "Prolog") (prolog-mode-variables) (set (make-local-variable 'comment-add) 1) - ;; font lock (setq font-lock-defaults '(prolog-font-lock-keywords nil nil nil - beginning-of-line)) - (run-mode-hooks 'prolog-mode-hook)) + beginning-of-line))) (defun prolog-indent-line () "Indent current line as Prolog code. |