Lines Matching +defs:assigned +defs:mode
1 ;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs 19
35 ;; keypad mode behavior. It sets up default keypad and function key
104 ;; earlier versions of EDT Emulation, GOLD-Enter was assigned to
187 (defvar edt-orig-transient-mark-mode)
294 (defvar edt-select-mode nil
295 "Non-nil means select mode is active.")
297 (defvar edt-select-mode-current ""
298 "Text displayed in mode line to indicate the state of EDT select mode.
299 When select mode is inactive, it is set to an empty string.")
301 (defconst edt-select-mode-string " Select"
302 "Used in mode line to indicate select mode is active.")
305 "Direction string in mode line to indicate forward movement.")
308 "Direction string in mode line to indicate backward movement.")
366 ;;; Almost all of EDT's keypad mode commands have equivalent Emacs
371 ;;; exact behavior of the corresponding EDT keypad mode commands. In
379 ;;; Emacs uses the regexp assigned to page-delimiter to determine what
523 ;;; buffer. This emulates the EDT line mode command SET ENTITY WORD.
877 (defun edt-select-mode (arg)
878 "Turn EDT select mode off if ARG is nil; otherwise, turn EDT select mode on.
879 In select mode, selected text is highlighted."
882 (make-local-variable 'edt-select-mode)
883 (setq edt-select-mode 'edt-select-mode-current)
886 (kill-local-variable 'edt-select-mode)))
887 (force-mode-line-update))
1042 (cond ((or edt-select-mode (edt-check-match))
1043 (while (and (not (= num 0)) (or edt-select-mode (edt-check-match)))
1110 (force-mode-line-update)
1126 (force-mode-line-update)
1151 (if edt-select-mode
1241 (if (not edt-select-mode)
1262 ;; subtract 1 from height because it includes mode line
1308 ;;; Several enhancements and additions to EDT keypad mode commands are
1330 (if edt-select-mode
1650 "Mark the section in a manner consistent with the `major-mode'.
1655 (if edt-select-mode
1659 (cond ((or (eq major-mode 'emacs-lisp-mode)
1660 (eq major-mode 'fortran-mode)
1661 (eq major-mode 'lisp-mode))
1664 ((eq major-mode 'c-mode)
1757 (defun edt-key-not-assigned ()
1758 "Displays message that key has not been assigned to a function."
1760 (error "Key not assigned"))
1891 (defun edt-cut-rectangle-overstrike-mode ()
1902 (defun edt-cut-rectangle-insert-mode ()
1915 If overwrite mode is active, cut text is replaced with whitespace."
1917 (if overwrite-mode
1918 (edt-cut-rectangle-overstrike-mode)
1919 (edt-cut-rectangle-insert-mode)))
1925 (defun edt-paste-rectangle-overstrike-mode ()
1930 (defun edt-paste-rectangle-insert-mode ()
1937 If overwrite mode is active, existing text is replace with text from register."
1939 (if overwrite-mode
1940 (edt-paste-rectangle-overstrike-mode)
1941 (edt-paste-rectangle-insert-mode)))
1957 (if edt-select-mode
1993 (if edt-select-mode
2162 (setq edt-orig-transient-mark-mode transient-mark-mode)
2166 (edt-select-mode t))))
2170 (edt-select-mode nil)))))
2175 (edt-select-mode t))))
2179 (edt-select-mode nil))))))
2193 (setq edt-select-mode-current nil)
2195 (force-mode-line-update t)
2197 (setq transient-mark-mode edt-orig-transient-mark-mode))
2206 ;; wish to retain in EDT emulation mode keymaps. It also permits
2223 ;; Display EDT text selection active within the mode line
2224 (or (assq 'edt-select-mode minor-mode-alist)
2225 (setq minor-mode-alist
2226 (cons '(edt-select-mode edt-select-mode) minor-mode-alist)))
2227 ;; Display EDT direction of motion within the mode line
2228 (or (assq 'edt-direction-string minor-mode-alist)
2229 (setq minor-mode-alist
2231 '(edt-direction-string edt-direction-string) minor-mode-alist)))
2262 (transient-mark-mode 1))
2270 (setq edt-select-mode-current 'edt-select-mode-string)
2280 (transient-mark-mode 1))
2288 (setq edt-select-mode-current 'edt-select-mode-string)
2397 (edt-bind-function-key-default "INSERT" 'yank 'edt-key-not-assigned)
2400 'edt-toggle-select 'edt-key-not-assigned)
2402 'edt-sect-forward 'edt-key-not-assigned)
2404 'edt-sect-backward 'edt-key-not-assigned)
2406 'edt-key-not-assigned 'edt-key-not-assigned)
2408 'edt-copy-rectangle 'edt-key-not-assigned)
2410 'edt-cut-rectangle-overstrike-mode 'edt-paste-rectangle-overstrike-mode)
2412 'edt-cut-rectangle-insert-mode 'edt-paste-rectangle-insert-mode)
2418 'edt-key-not-assigned 'edt-key-not-assigned)
2422 'edt-delete-to-beginning-of-word 'edt-key-not-assigned) ;LF
2424 'edt-key-not-assigned 'edt-key-not-assigned)
2426 'edt-electric-keypad-help 'edt-key-not-assigned)
2428 'execute-extended-command 'edt-key-not-assigned)
2430 'edt-key-not-assigned 'edt-key-not-assigned)
2432 'edt-key-not-assigned 'edt-key-not-assigned)
2434 'edt-key-not-assigned 'edt-key-not-assigned)
2436 'edt-key-not-assigned 'edt-key-not-assigned)
2442 ;; bindings are left unchanged in the default EDT mode. However, if
2449 (edt-bind-key-default "\C-a" 'edt-key-not-assigned)
2450 (edt-bind-key-default "\C-b" 'edt-key-not-assigned)
2452 (edt-bind-key-default "\C-d" 'edt-key-not-assigned)
2453 (edt-bind-key-default "\C-e" 'edt-key-not-assigned)
2454 (edt-bind-key-default "\C-f" 'edt-key-not-assigned)
2464 (edt-bind-key-default "\C-o" 'edt-key-not-assigned)
2465 (edt-bind-key-default "\C-p" 'edt-key-not-assigned)
2466 (edt-bind-key-default "\C-q" 'edt-key-not-assigned)
2474 (edt-bind-key-default "\C-y" 'edt-key-not-assigned)
2487 (edt-bind-gold-key-default "a" 'edt-key-not-assigned)
2488 (edt-bind-gold-key-default "A" 'edt-key-not-assigned)
2505 (edt-bind-gold-key-default "j" 'edt-key-not-assigned)
2506 (edt-bind-gold-key-default "J" 'edt-key-not-assigned)
2517 (edt-bind-gold-key-default "p" 'edt-key-not-assigned)
2518 (edt-bind-gold-key-default "P" 'edt-key-not-assigned)
2525 (edt-bind-gold-key-default "t" 'edt-key-not-assigned)
2526 (edt-bind-gold-key-default "T" 'edt-key-not-assigned)
2533 (edt-bind-gold-key-default "x" 'edt-key-not-assigned)
2534 (edt-bind-gold-key-default "X" 'edt-key-not-assigned)
2540 (edt-bind-gold-key-default "!" 'edt-key-not-assigned)
2542 (edt-bind-gold-key-default "@" 'edt-key-not-assigned)
2543 (edt-bind-gold-key-default "3" 'edt-key-not-assigned)
2544 (edt-bind-gold-key-default "#" 'edt-key-not-assigned)
2545 (edt-bind-gold-key-default "4" 'edt-key-not-assigned)
2546 (edt-bind-gold-key-default "$" 'edt-key-not-assigned)
2547 (edt-bind-gold-key-default "5" 'edt-key-not-assigned)
2549 (edt-bind-gold-key-default "6" 'edt-key-not-assigned)
2550 (edt-bind-gold-key-default "^" 'edt-key-not-assigned)
2551 (edt-bind-gold-key-default "7" 'edt-key-not-assigned)
2552 (edt-bind-gold-key-default "&" 'edt-key-not-assigned)
2553 (edt-bind-gold-key-default "8" 'edt-key-not-assigned)
2554 (edt-bind-gold-key-default "*" 'edt-key-not-assigned)
2555 (edt-bind-gold-key-default "9" 'edt-key-not-assigned)
2556 (edt-bind-gold-key-default "(" 'edt-key-not-assigned)
2557 (edt-bind-gold-key-default "0" 'edt-key-not-assigned)
2558 (edt-bind-gold-key-default ")" 'edt-key-not-assigned)
2560 (edt-bind-gold-key-default "," 'edt-key-not-assigned)
2561 (edt-bind-gold-key-default "<" 'edt-key-not-assigned)
2562 (edt-bind-gold-key-default "." 'edt-key-not-assigned)
2563 (edt-bind-gold-key-default ">" 'edt-key-not-assigned)
2565 (edt-bind-gold-key-default "?" 'edt-key-not-assigned)
2566 (edt-bind-gold-key-default "\\" 'edt-key-not-assigned)
2567 (edt-bind-gold-key-default "|" 'edt-key-not-assigned)
2568 (edt-bind-gold-key-default ";" 'edt-key-not-assigned)
2569 (edt-bind-gold-key-default ":" 'edt-key-not-assigned)
2570 (edt-bind-gold-key-default "'" 'edt-key-not-assigned)
2571 (edt-bind-gold-key-default "\"" 'edt-key-not-assigned)
2572 (edt-bind-gold-key-default "-" 'edt-key-not-assigned)
2573 (edt-bind-gold-key-default "_" 'edt-key-not-assigned)
2575 (edt-bind-gold-key-default "+" 'edt-key-not-assigned)
2576 (edt-bind-gold-key-default "[" 'edt-key-not-assigned)
2577 (edt-bind-gold-key-default "{" 'edt-key-not-assigned)
2578 (edt-bind-gold-key-default "]" 'edt-key-not-assigned)
2579 (edt-bind-gold-key-default "}" 'edt-key-not-assigned)
2581 (edt-bind-gold-key-default "~" 'edt-key-not-assigned)