From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 4 Mar 2007 17:48:56 +0000 (+0000)
Subject: (beginning-of-buffer, end-of-buffer):
X-Git-Tag: emacs-pretest-22.0.96~288
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d7e7ecd748c0de17e5d8923a51e7c53d6dce18af;p=emacs.git

(beginning-of-buffer, end-of-buffer):
Avoid treating plain C-u like numeric arg.

(completion-setup-function): Don't set default-directory to nil.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 44408c4f427..4b3ebecb12c 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -758,7 +758,7 @@ Don't use this command in Lisp programs!
 			     (/ size 10))
 			(/ (+ 10 (* size (prefix-numeric-value arg))) 10)))
 		 (point-min))))
-  (if arg (forward-line 1)))
+  (if (and arg (not (consp arg))) (forward-line 1)))
 
 (defun end-of-buffer (&optional arg)
   "Move point to the end of the buffer; leave mark at previous position.
@@ -785,7 +785,7 @@ Don't use this command in Lisp programs!
 		 (point-max))))
   ;; If we went to a place in the middle of the buffer,
   ;; adjust it to the beginning of a line.
-  (cond (arg (forward-line 1))
+  (cond ((and arg (not (consp arg))) (forward-line 1))
 	((> (point) (window-end nil t))
 	 ;; If the end of the buffer is not already on the screen,
 	 ;; then scroll specially to put it near, but not at, the bottom.
@@ -5088,7 +5088,8 @@ of the minibuffer before point is always the common substring.)")
     ;; so it will get copied into the completion list buffer.
     (if minibuffer-completing-file-name
 	(with-current-buffer mainbuf
-	  (setq default-directory (file-name-directory mbuf-contents))))
+	  (setq default-directory (or (file-name-directory mbuf-contents)
+				      default-directory))))
     (with-current-buffer standard-output
       (completion-list-mode)
       (set (make-local-variable 'completion-reference-buffer) mainbuf)