41 |
"Highlight (un)matching of parens and expressions." |
"Highlight (un)matching of parens and expressions." |
42 |
:group 'matching) |
:group 'matching) |
43 |
|
|
44 |
|
(define-key global-map [?\C-x right] 'next-buffer) |
45 |
|
(define-key global-map [?\C-x left] 'prev-buffer) |
46 |
|
(defun next-buffer () |
47 |
|
"Switch to the next buffer in cyclic order." |
48 |
|
(interactive) |
49 |
|
(let ((buffer (current-buffer))) |
50 |
|
(switch-to-buffer (other-buffer buffer)) |
51 |
|
(bury-buffer buffer))) |
52 |
|
|
53 |
|
(defun prev-buffer () |
54 |
|
"Switch to the previous buffer in cyclic order." |
55 |
|
(interactive) |
56 |
|
(let ((list (nreverse (buffer-list))) |
57 |
|
found) |
58 |
|
(while (and (not found) list) |
59 |
|
(let ((buffer (car list))) |
60 |
|
(if (and (not (get-buffer-window buffer)) |
61 |
|
(not (string-match "\\` " (buffer-name buffer)))) |
62 |
|
(setq found buffer))) |
63 |
|
(setq list (cdr list))) |
64 |
|
(switch-to-buffer found))) |
65 |
|
|
66 |
(defun fundamental-mode () |
(defun fundamental-mode () |
67 |
"Major mode not specialized for anything in particular. |
"Major mode not specialized for anything in particular. |
3995 |
(kp-decimal ?.) |
(kp-decimal ?.) |
3996 |
(kp-divide ?/) |
(kp-divide ?/) |
3997 |
(kp-equal ?=))) |
(kp-equal ?=))) |
3998 |
|
|
3999 |
;;;; |
;;;; |
4000 |
;;;; forking a twin copy of a buffer. |
;;;; forking a twin copy of a buffer. |
4001 |
;;;; |
;;;; |
4145 |
(clone-indirect-buffer nil t norecord))) |
(clone-indirect-buffer nil t norecord))) |
4146 |
|
|
4147 |
(define-key ctl-x-4-map "c" 'clone-indirect-buffer-other-window) |
(define-key ctl-x-4-map "c" 'clone-indirect-buffer-other-window) |
4148 |
|
|
|
|
|
4149 |
;;; Handling of Backspace and Delete keys. |
;;; Handling of Backspace and Delete keys. |
4150 |
|
|
4151 |
(defcustom normal-erase-is-backspace nil |
(defcustom normal-erase-is-backspace nil |