[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101132: * lisp/simple.el (prog-mode-
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101132: * lisp/simple.el (prog-mode-map): New var. |
Date: |
Thu, 19 Aug 2010 01:25:36 +0200 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101132
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2010-08-19 01:25:36 +0200
message:
* lisp/simple.el (prog-mode-map): New var.
(prog-indent-sexp): New command.
modified:
lisp/ChangeLog
lisp/simple.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-08-18 13:12:34 +0000
+++ b/lisp/ChangeLog 2010-08-18 23:25:36 +0000
@@ -1,5 +1,8 @@
2010-08-18 Stefan Monnier <address@hidden>
+ * simple.el (prog-mode-map): New var.
+ (prog-indent-sexp): New command.
+
* progmodes/octave-mod.el (octave-mode-menu): Make toggle buttons.
* progmodes/prolog.el (smie): Require.
=== modified file 'lisp/simple.el'
--- a/lisp/simple.el 2010-08-16 02:33:17 +0000
+++ b/lisp/simple.el 2010-08-18 23:25:36 +0000
@@ -424,6 +424,19 @@
;; Major mode meant to be the parent of programming modes.
+(defvar prog-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map [?\C-\M-q] 'prog-indent-sexp)
+ map)
+ "Keymap used for programming modes.")
+
+(defun prog-indent-sexp ()
+ "Indent the expression after point."
+ (interactive)
+ (let ((start (point))
+ (end (save-excursion (forward-sexp 1) (point))))
+ (indent-region start end nil)))
+
(define-derived-mode prog-mode fundamental-mode "Prog"
"Major mode for editing programming language source code."
(set (make-local-variable 'require-final-newline) mode-require-final-newline)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101132: * lisp/simple.el (prog-mode-map): New var.,
Stefan Monnier <=