Mercurial > emacs
changeset 108588:7c03bbe03019
* progmodes/prolog.el (prolog-mode): Use define-derived-mode.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 15 May 2010 00:08:03 -0400 |
| parents | 17dd83b6f6d9 |
| children | b818f9578731 |
| files | lisp/ChangeLog lisp/progmodes/prolog.el |
| diffstat | 2 files changed, 4 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri May 14 23:50:26 2010 -0400 +++ b/lisp/ChangeLog Sat May 15 00:08:03 2010 -0400 @@ -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.
--- a/lisp/progmodes/prolog.el Fri May 14 23:50:26 2010 -0400 +++ b/lisp/progmodes/prolog.el Sat May 15 00:08:03 2010 -0400 @@ -136,26 +136,18 @@ )) ;;;###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.