/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.538 by rms, Mon Apr 22 22:35:46 2002 UTC revision 1.539 by rms, Sat Apr 27 23:16:18 2002 UTC
# Line 41  Line 41 
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.
# Line 3974  PREFIX is the string that represents thi Line 3995  PREFIX is the string that represents thi
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  ;;;;  ;;;;
# Line 4124  the front of the list of recently select Line 4145  the front of the list of recently select
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

Legend:
Removed from v.1.538  
changed lines
  Added in v.1.539

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26