Mercurial > urweb

comparison src/elisp/urweb-mode.el @ 1747:9b54fbe1efdb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adjust error message format to match Emacs defaults
author Adam Chlipala <adam@chlipala.net>
date Sat, 05 May 2012 19:57:54 -0400
parents ac141fbb313a
children 403f0cc65b9c
comparison
equal deleted inserted replaced
1746:1dd8a8791d9c 1747:9b54fbe1efdb
65 ;; urweb-mode-hook is run whenever a new urweb-mode buffer is created. 65 ;; urweb-mode-hook is run whenever a new urweb-mode buffer is created.
66 66
67 ;;; Code: 67 ;;; Code:
68 68
69 (eval-when-compile (require 'cl)) 69 (eval-when-compile (require 'cl))
70 (require 'compile)
70 (require 'urweb-util) 71 (require 'urweb-util)
71 (require 'urweb-move) 72 (require 'urweb-move)
72 (require 'urweb-defs) 73 (require 'urweb-defs)
73 (condition-case nil (require 'skeleton) (error nil)) 74 (condition-case nil (require 'skeleton) (error nil))
74 75
391 ;; For XEmacs 392 ;; For XEmacs
392 (easy-menu-add urweb-mode-menu) 393 (easy-menu-add urweb-mode-menu)
393 394
394 ;; Compatibility. FIXME: we should use `-' in Emacs-CVS. 395 ;; Compatibility. FIXME: we should use `-' in Emacs-CVS.
395 (unless (boundp 'skeleton-positions) (set (make-local-variable '@) nil)) 396 (unless (boundp 'skeleton-positions) (set (make-local-variable '@) nil))
397
398 (local-set-key (kbd "C-c C-c") 'compile)
396 399
397 (urweb-mode-variables)) 400 (urweb-mode-variables))
398 401
399 (defun urweb-mode-variables () 402 (defun urweb-mode-variables ()
400 (set-syntax-table urweb-mode-syntax-table) 403 (set-syntax-table urweb-mode-syntax-table)
901 (setq fullname (if fullname (concat name "." fullname) name)) 904 (setq fullname (if fullname (concat name "." fullname) name))
902 ;; Skip all other declarations that we find at the same level. 905 ;; Skip all other declarations that we find at the same level.
903 (urweb-skip-siblings)) 906 (urweb-skip-siblings))
904 fullname))) 907 fullname)))
905 908
906
907
908 (provide 'urweb-mode) 909 (provide 'urweb-mode)
909 910
910 ;;; urweb-mode.el ends here 911 ;;; urweb-mode.el ends here