X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/f46955194797ff50b7210d5397d22b1c5e819ec0..a74f9094c42fe38bf1142a698e03bf7f4711451d:/lisp/bindings.el

diff --git a/lisp/bindings.el b/lisp/bindings.el
index dbab5f00f0..7e9467b19c 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -338,29 +338,6 @@ Keymap to display on minor modes.")
 (defvar mode-line-buffer-identification-keymap nil "\
 Keymap for what is displayed by `mode-line-buffer-identification'.")
 
-(defun last-buffer () "\
-Return the last non-hidden buffer in the buffer list."
-  ;; This logic is more or less copied from bury-buffer,
-  ;; except that we reverse the buffer list.
-  (let ((list (nreverse (buffer-list (selected-frame))))
-	(pred (frame-parameter nil 'buffer-predicate))
-	found notsogood)
-    (while (and list (not found))
-      (unless (or (eq (aref (buffer-name (car list)) 0) ? )
-		  ;; If the selected frame has a buffer_predicate,
-		  ;; disregard buffers that don't fit the predicate.
-		  (and pred (not (funcall pred (car list)))))
-	(if (get-buffer-window (car list) 'visible)
-	    (or notsogood (eq (car list) (current-buffer)))
-	  (setq found (car list))))
-      (pop list))
-    (or found notsogood
-	(get-buffer "*scratch*")
-	(progn
-	  (set-buffer-major-mode
-	   (get-buffer-create "*scratch*"))
-	  (get-buffer "*scratch*")))))
-
 (defun unbury-buffer () "\
 Switch to the last buffer in the buffer list."
   (interactive)
@@ -673,8 +650,8 @@ language you are using."
 
 (define-key global-map [?\C-x right] 'next-buffer)
 (define-key global-map [?\C-x C-right] 'next-buffer)
-(define-key global-map [?\C-x left] 'prev-buffer)
-(define-key global-map [?\C-x C-left] 'prev-buffer)
+(define-key global-map [?\C-x left] 'previous-buffer)
+(define-key global-map [?\C-x C-left] 'previous-buffer)
 
 (let ((map minibuffer-local-map))
   (define-key map "\en"   'next-history-element)