[Emacs-diffs] Changes to emacs/lisp/simple.el

[Richard M. Stallman]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.538 emacs/lisp/simple.el:1.539
*** emacs/lisp/simple.el:1.538  Mon Apr 22 18:35:46 2002
--- emacs/lisp/simple.el        Sat Apr 27 19:16:18 2002
***************
*** 41,46 ****
--- 41,67 ----
    "Highlight (un)matching of parens and expressions."
    :group 'matching)
  
+ (define-key global-map [?\C-x right] 'next-buffer)
+ (define-key global-map [?\C-x left] 'prev-buffer)
+ (defun next-buffer ()
+   "Switch to the next buffer in cyclic order."
+   (interactive)
+   (let ((buffer (current-buffer)))
+     (switch-to-buffer (other-buffer buffer))
+     (bury-buffer buffer)))
+ 
+ (defun prev-buffer ()
+   "Switch to the previous buffer in cyclic order."
+   (interactive)
+   (let ((list (nreverse (buffer-list)))
+       found)
+     (while (and (not found) list)
+       (let ((buffer (car list)))
+       (if (and (not (get-buffer-window buffer))
+                (not (string-match "\\` " (buffer-name buffer))))
+           (setq found buffer)))
+       (setq list (cdr list)))
+     (switch-to-buffer found)))
  
  (defun fundamental-mode ()
    "Major mode not specialized for anything in particular.
***************
*** 3974,3980 ****
     (kp-decimal ?.)
     (kp-divide ?/)
     (kp-equal ?=)))
! 
  ;;;;
  ;;;; forking a twin copy of a buffer.
  ;;;;
--- 3995,4001 ----
     (kp-decimal ?.)
     (kp-divide ?/)
     (kp-equal ?=)))
! 
  ;;;;
  ;;;; forking a twin copy of a buffer.
  ;;;;
***************
*** 4124,4131 ****
      (clone-indirect-buffer nil t norecord)))
  
  (define-key ctl-x-4-map "c" 'clone-indirect-buffer-other-window)
! 
! 
  ;;; Handling of Backspace and Delete keys.
  
  (defcustom normal-erase-is-backspace nil
--- 4145,4151 ----
      (clone-indirect-buffer nil t norecord)))
  
  (define-key ctl-x-4-map "c" 'clone-indirect-buffer-other-window)
! 
  ;;; Handling of Backspace and Delete keys.
  
  (defcustom normal-erase-is-backspace nil