bth/um-mode
Watch
1
Fork
You've already forked um-mode
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

um-mode : inherit from special-mode and just set (read-only-mode)

Browse source
This commit is contained in:
bth 2026-05-12 17:28:58 -07:00
commit 73ea9d3d6e
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
elisp/um-mode.el
View file

@ -14,17 +14,20 @@
;; we can prefill it: ;; we can prefill it:
(defvar-keymap um-mode-map (defvar-keymap um-mode-map
:doc "Keymap for um-mode." :doc "Keymap for um-mode."
"n" 'next-line
"p" 'previous-line
"M-p" 'um-drag-stuff-up "M-p" 'um-drag-stuff-up
"M-n" 'um-drag-stuff-down "M-n" 'um-drag-stuff-down
"M-k" 'um-kill-line "M-k" 'um-kill-line
"t" 'um-tag-dwim-inhibit-read-only "t" 'um-tag-dwim-inhibit-read-only
) )
(define-derived-mode um-mode view-mode "um-mode" (define-derived-mode um-mode special-mode "um-mode"
"major mode for *.um file lists. Mostly `view-mode' with a few special commands. "major mode for *.um file lists. Mostly `special-mode' with a few more commands.
\\{um-mode-map} \\{um-mode-map}
" "
(read-only-mode)
(setq-local mode-line-show-line-column nil) (setq-local mode-line-show-line-column nil)
) )