Commit d445b3f8 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(special-mode-map): New var.

(special-mode): New major mode.
parent 3daebe67
......@@ -1241,6 +1241,9 @@ forms to subroutines.
* New Packages for Lisp Programming in Emacs 23.1
** The new major mode `special-mode' is intended as a parent for
major modes such as those that set the "'mode-class 'special" property.
** find-cmd.el can build `find' commands using lisp syntax.
** The package isearch-multi.el has been added. It implements a new mode
......
2008-06-20 Stefan Monnier <monnier@iro.umontreal.ca>
* simple.el (special-mode-map): New var.
(special-mode): New major mode.
2008-06-20 Dan Nicolaescu <dann@ics.uci.edu>
* vc.el (vc-dir-hide-up-to-date): Undo previous change.
(vc-switch-backend): Simplify.
(Todo): Remove solved items.
* vc-cvs.el (vc-cvs-parse-status, vc-cvs-parse-entry): Do not set
the vc-backend property.
......@@ -14,8 +19,8 @@
2008-06-20 Ulf Jasper <ulf@web.de>
* net/newst-treeview.el (newsticker-treeview-own-frame): Changed
default value to nil.
* net/newst-treeview.el (newsticker-treeview-own-frame):
Change default value to nil.
(newsticker--treeview-list-add-item)
(newsticker--treeview-propertize-tag): Show item title in tooltip.
......
......@@ -391,6 +391,25 @@ Other major modes are defined by comparison with this one."
(unless delay-mode-hooks
(run-hooks 'after-change-major-mode-hook)))
;; Special major modes to view specially formatted data rather than files.
(defvar special-mode-map
(let ((map (make-sparse-keymap)))
(suppress-keymap map)
(define-key map "q" 'quit-window)
(define-key map " " 'scroll-up)
(define-key map "\C-?" 'scroll-down)
(define-key map "?" 'describe-mode)
(define-key map ">" 'end-of-buffer)
(define-key map "<" 'beginning-of-buffer)
(define-key map "g" 'revert-buffer)
map))
(put 'special-mode 'mode-class 'special)
(define-derived-mode special-mode nil "Special"
"Parent major mode from which special major modes should inherit."
(setq buffer-read-only t))
;; Making and deleting lines.
(defvar hard-newline (propertize "\n" 'hard t 'rear-nonsticky '(hard)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment