lisp/emulation/pc-select.el

38 ;; delete-selection-mode.
45 ;; delete-selection-mode is very important for the look-and-feel.
76 ;;    They will be bound according to the "old" behaviour to S-delete (cut),
138 	 ;; This is to avoid confusion with the delete-selection-mode
145 	   ([S-right]   . forward-char-mark)
146 	   ([right]     . forward-char-nomark)
149 	   ([S-left]    . backward-char-mark)
150 	   ([left]      . backward-char-nomark)
151 	   ([C-S-left]  . backward-word-mark)
152 	   ([C-left]    . backward-word-nomark)
178 	   ([M-S-up]    . backward-line-mark)
179 	   ([M-up]      . backward-line-nomark)
186 	   ([C-up]      . backward-paragraph-nomark) ; KPrevPara     cUp
188 	   ([S-C-up]    . backward-paragraph-mark))))
202 	   ([S-delete]  . kill-region)
214 	   ([C-delete] . kill-line)		; KEraseEndLine cDel
220 	   ([C-M-delete]  . kill-sexp)
229      ([M-S-left]  . backward-sexp-mark)
230      ([M-left]    . backward-sexp-nomark))
233      ([M-S-left]  . backward-word-mark)
234      ([M-left]    . backward-word-nomark)))
245   '(([delete] . delete-char)		; KDelete       Del
246    ([C-backspace] . backward-kill-word))
251 (defvar pc-select-old-M-delete-binding nil
252   "Holds the old mapping of [M-delete] in the `function-key-map'.
253 This variable holds the value associated with [M-delete] in the
268 Deactivating mark is to avoid confusion with `delete-selection-mode'
293 (defun forward-char-mark (&optional arg)
298   (forward-char arg))
301   "Ensure mark is active; move point right ARG words (backward if ARG is negative).
320 move backward across N balanced expressions."
327 With arg N, do it N times; negative arg -N means move backward N paragraphs.
366 (defun backward-line-mark (&optional arg)
385 	   (beginning-of-buffer (goto-char (point-min)))))
396 \(goto-char \(point-max)) is faster and avoids clobbering the mark."
400     (goto-char (if arg
415 		    (goto-char (window-start))
426 (defun forward-char-nomark (&optional arg)
431   (forward-char arg))
434   "Deactivate mark; move point right ARG words \(backward if ARG is negative).
453 move backward across N balanced expressions."
460 With arg N, do it N times; negative arg -N means move backward N paragraphs.
499 (defun backward-line-nomark (&optional arg)
518 	   (beginning-of-buffer (goto-char (point-min)))))
529 \(goto-char (point-max)) is faster and avoids clobbering the mark."
533     (goto-char (if arg
548 		    (goto-char (window-start))
560 (defun backward-char-mark (&optional arg)
565   (backward-char arg))
567 (defun backward-word-mark (&optional arg)
568   "Ensure mark is active; move backward until encountering the end of a word.
572   (backward-word arg))
574 (defun backward-sexp-mark (&optional arg)
575   "Ensure mark is active; move backward across one balanced expression (sexp).
580   (backward-sexp arg))
582 (defun backward-paragraph-mark (&optional arg)
583   "Ensure mark is active; move backward to start of paragraph.
595   (backward-paragraph arg))
633 	   (end-of-buffer (goto-char (point-max)))))
644 \(goto-char (p\oint-min)) is faster and avoids clobbering the mark."
648     (goto-char (if arg
662 (defun backward-char-nomark (&optional arg)
667   (backward-char arg))
669 (defun backward-word-nomark (&optional arg)
670   "Deactivate mark; move backward until encountering the end of a word.
674   (backward-word arg))
676 (defun backward-sexp-nomark (&optional arg)
677   "Deactivate mark; move backward across one balanced expression (sexp).
682   (backward-sexp arg))
684 (defun backward-paragraph-nomark (&optional arg)
685   "Deactivate mark; move backward to start of paragraph.
697   (backward-paragraph arg))
730 	   (end-of-buffer (goto-char (point-max)))))
741 \(goto-char (point-min)) is faster and avoids clobbering the mark."
745     (goto-char (if arg
871   DELETE       delete-char
875   C-BACKSPACE  backward-kill-word
909 	      (setq pc-select-old-M-delete-binding
910 		    (lookup-key function-key-map [M-delete]))
911 	      (define-key function-key-map  [M-delete] [?\M-d]))
927 	    (pc-select-save-and-set-mode delete-selection-mode 1))
940 	  (define-key function-key-map  [M-delete] [?\M-d]))
949 	(delete-selection-mode 1))
964       (pc-select-restore-mode delete-selection-mode)
965       (and pc-select-old-M-delete-binding
966 	   (define-key function-key-map [M-delete]
967 	     pc-select-old-M-delete-binding))