headers
Stefan Monnier | 1 Jul 2007 03:57
Picon

Changes to emacs/src/ChangeLog,v

CVSROOT:	/sources/emacs
Module name:	emacs
Changes by:	Stefan Monnier <monnier>	07/07/01 01:57:22

Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/src/ChangeLog,v
retrieving revision 1.5731
retrieving revision 1.5732
diff -u -b -r1.5731 -r1.5732
--- ChangeLog	28 Jun 2007 20:21:13 -0000	1.5731
+++ ChangeLog	1 Jul 2007 01:57:21 -0000	1.5732
 <at>  <at>  -1,3 +1,8  <at>  <at> 
+2007-07-01  Stefan Monnier  <monnier <at> iro.umontreal.ca>
+
+	* minibuf.c (Fcompleting_read): New value `confirm-only'
+	for `require-match'.
+
 2007-06-28  Stefan Monnier  <monnier <at> iro.umontreal.ca>

 	* fileio.c (Fdo_auto_save): Revert last patch installed unwillingly as
Permalink | Reply | 0 comments |
headers
Stefan Monnier | 1 Jul 2007 03:57
Picon

Changes to emacs/src/minibuf.c,v

CVSROOT:	/sources/emacs
Module name:	emacs
Changes by:	Stefan Monnier <monnier>	07/07/01 01:57:22

Index: minibuf.c
===================================================================
RCS file: /sources/emacs/emacs/src/minibuf.c,v
retrieving revision 1.330
retrieving revision 1.331
diff -u -b -r1.330 -r1.331
--- minibuf.c	8 Jun 2007 20:09:20 -0000	1.330
+++ minibuf.c	1 Jul 2007 01:57:21 -0000	1.331
 <at>  <at>  -1717,9 +1717,15  <at>  <at> 
 See `try-completion' and `all-completions' for more details
  on completion, COLLECTION, and PREDICATE.

-If REQUIRE-MATCH is non-nil, the user is not allowed to exit unless
+REQUIRE-MATCH can take the following values:
+- t means that the user is not allowed to exit unless
  the input is (or completes to) an element of COLLECTION or is null.
- If it is also not t, typing RET does not exit if it does non-null completion.
+- nil means that the user can exit with any input.
+- `confirm-only' means that the user can exit with any input, but she will
+  need to confirm her choice if the input is not an element of COLLECTION.
+- anything else behaves like t except that typing RET does not exit if it
+  does non-null completion.
+
 If the input is null, `completing-read' returns DEF, or an empty string
  if DEF is nil, regardless of the value of REQUIRE-MATCH.
(Continue reading)

Permalink | Reply | 0 comments |
headers
Stefan Monnier | 1 Jul 2007 03:57
Picon

Changes to emacs/lisp/ChangeLog,v

CVSROOT:	/sources/emacs
Module name:	emacs
Changes by:	Stefan Monnier <monnier>	07/07/01 01:57:32

Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.11285
retrieving revision 1.11286
diff -u -b -r1.11285 -r1.11286
--- ChangeLog	30 Jun 2007 18:49:41 -0000	1.11285
+++ ChangeLog	1 Jul 2007 01:57:31 -0000	1.11286
 <at>  <at>  -1,3 +1,10  <at>  <at> 
+2007-07-01  Stefan Monnier  <monnier <at> iro.umontreal.ca>
+
+	* files.el (find-file-confirm-inexistent-file): New var.
+	(find-file, find-file-other-window, find-file-other-frame)
+	(find-file-read-only, find-file-read-only-other-window)
+	(find-file-read-only-other-frame): Use it.
+
 2007-06-30  Stefan Monnier  <monnier <at> iro.umontreal.ca>

 	* emacs-lisp/rx.el (rx-constituents): Fix up `anything'.
Permalink | Reply | 0 comments |
headers
Stefan Monnier | 1 Jul 2007 03:57
Picon

Changes to emacs/lisp/files.el,v

CVSROOT:	/sources/emacs
Module name:	emacs
Changes by:	Stefan Monnier <monnier>	07/07/01 01:57:32

Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.905
retrieving revision 1.906
diff -u -b -r1.905 -r1.906
--- files.el	5 Jun 2007 15:46:43 -0000	1.905
+++ files.el	1 Jul 2007 01:57:31 -0000	1.906
 <at>  <at>  -1051,6 +1051,9  <at>  <at> 
 	     , <at> body)
 	 (remove-hook 'minibuffer-setup-hook ,hook)))))

+(defvar find-file-confirm-inexistent-file t
+  "If non-nil, `find-file' will require confirmation before visiting a new file.")
+
 (defun find-file-read-args (prompt mustmatch)
   (list (let ((find-file-default
 	       (and buffer-file-name
 <at>  <at>  -1074,7 +1077,9  <at>  <at> 

 To visit a file without any kind of conversion and without
 automatically choosing a major mode, use \\[find-file-literally]."
-  (interactive (find-file-read-args "Find file: " nil))
+  (interactive
+   (find-file-read-args "Find file: "
+                        (if find-file-confirm-inexistent-file 'confirm-only)))
(Continue reading)

Permalink | Reply | 0 comments |
headers
Stefan Monnier | 1 Jul 2007 03:57
Picon

Changes to emacs/etc/NEWS,v

CVSROOT:	/sources/emacs
Module name:	emacs
Changes by:	Stefan Monnier <monnier>	07/07/01 01:57:53

Index: NEWS
===================================================================
RCS file: /sources/emacs/emacs/etc/NEWS,v
retrieving revision 1.1500
retrieving revision 1.1501
diff -u -b -r1.1500 -r1.1501
--- NEWS	27 Jun 2007 21:07:49 -0000	1.1500
+++ NEWS	1 Jul 2007 01:57:53 -0000	1.1501
 <at>  <at>  -34,6 +34,9  <at>  <at> 
 
 * Changes in Emacs 23.1

+** The variable find-file-confirm-inexistent-file controls if C-x C-f
+requires confirmation before opening a non-existent file.
+
 ** If the gpm mouse server is running and t-mouse-mode enabled, Emacs uses a
 Unix socket in a GNU/Linux console to talk to server, rather than faking events
 using the client program mev.  This C level approach provides mouse
 <at>  <at>  -104,6 +107,9  <at>  <at> 
 
 * Lisp Changes in Emacs 23.1

+** The `require-match' argument to `completing-read' accepts a new value
+`confirm-only'.
+
 +++
(Continue reading)

Permalink | Reply | 0 comments |
headers
Richard M. Stallman | 1 Jul 2007 05:21
Picon
Picon

Changes to emacs/lisp/files.el,v [EMACS_22_BASE]

CVSROOT:	/cvsroot/emacs
Module name:	emacs
Branch:		EMACS_22_BASE
Changes by:	Richard M. Stallman <rms>	07/07/01 03:21:52

Index: files.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/files.el,v
retrieving revision 1.896.2.8
retrieving revision 1.896.2.9
diff -u -b -r1.896.2.8 -r1.896.2.9
--- files.el	5 Jun 2007 15:51:01 -0000	1.896.2.8
+++ files.el	1 Jul 2007 03:21:51 -0000	1.896.2.9
 <at>  <at>  -162,7 +162,7  <at>  <at> 
 both at the file level and at the levels of the containing directories."
   :type 'boolean
   :group 'find-file)
-(put 'find-file-visit-truename 'safe-local-variable 'boolean)
+(put 'find-file-visit-truename 'safe-local-variable 'booleanp)

 (defcustom revert-without-query nil
   "Specify which files should be reverted without query.
Permalink | Reply | 0 comments |
headers
Richard M. Stallman | 1 Jul 2007 05:23
Picon
Picon

Changes to emacs/lisp/ChangeLog,v [EMACS_22_BASE]

CVSROOT:	/cvsroot/emacs
Module name:	emacs
Branch:		EMACS_22_BASE
Changes by:	Richard M. Stallman <rms>	07/07/01 03:23:14

Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.11049.2.106
retrieving revision 1.11049.2.107
diff -u -b -r1.11049.2.106 -r1.11049.2.107
--- ChangeLog	29 Jun 2007 11:15:58 -0000	1.11049.2.106
+++ ChangeLog	1 Jul 2007 03:23:11 -0000	1.11049.2.107
 <at>  <at>  -1,3 +1,7  <at>  <at> 
+2007-07-01  Richard Stallman  <rms <at> gnu.org>
+
+	* files.el (find-file-visit-truename): Fix safe-local-variable value.
+
 2007-06-29  Juanma Barranquero  <lekktu <at> gmail.com>

 	* generic-x.el (generic-define-mswindows-modes)
Permalink | Reply | 0 comments |
headers
Richard M. Stallman | 1 Jul 2007 19:18
Picon
Picon

Changes to emacs/lisp/cus-start.el,v

CVSROOT:	/cvsroot/emacs
Module name:	emacs
Changes by:	Richard M. Stallman <rms>	07/07/01 17:18:42

Index: cus-start.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/cus-start.el,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -b -r1.100 -r1.101
--- cus-start.el	8 Apr 2007 22:02:42 -0000	1.100
+++ cus-start.el	1 Jul 2007 17:18:42 -0000	1.101
 <at>  <at>  -139,6 +139,9  <at>  <at> 
 	     ;; eval.c
 	     (max-specpdl-size limits integer)
 	     (max-lisp-eval-depth limits integer)
+	     (max-mini-window-height limits
+				     (choice (const :tag "quarter screen" nil)
+					     number))
 	     (stack-trace-on-error debug
 				   (choice (const :tag "off")
 					   (repeat :menu-tag "When"
Permalink | Reply | 0 comments |
headers
Richard M. Stallman | 1 Jul 2007 19:19
Picon
Picon

Changes to emacs/lisp/complete.el,v

CVSROOT:	/cvsroot/emacs
Module name:	emacs
Changes by:	Richard M. Stallman <rms>	07/07/01 17:19:16

Index: complete.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/complete.el,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -b -r1.73 -r1.74
--- complete.el	11 Jun 2007 22:10:24 -0000	1.73
+++ complete.el	1 Jul 2007 17:19:16 -0000	1.74
 <at>  <at>  -222,13 +222,6  <at>  <at> 
 	 (remove-hook 'find-file-not-found-functions 'PC-look-for-include-file))
 	((not PC-disable-includes)
 	 (add-hook 'find-file-not-found-functions 'PC-look-for-include-file)))
-  ;; ... with some underhand redefining.
-  (cond ((not partial-completion-mode)
-         (ad-disable-advice 'read-file-name-internal 'around 'PC-include-file)
-         (ad-activate 'read-file-name-internal))
-	((not PC-disable-includes)
-         (ad-enable-advice 'read-file-name-internal 'around 'PC-include-file)
-         (ad-activate 'read-file-name-internal)))
   ;; Adjust the completion selection in *Completion* buffers to the way
   ;; we work.  The default minibuffer completion code only completes the
   ;; text before point and leaves the text after point alone (new in
 <at>  <at>  -430,7 +423,9  <at>  <at> 
 GOTO-END is non-nil, however, it instead replaces up to END."
   (or beg (setq beg (minibuffer-prompt-end)))
   (or end (setq end (point-max)))
(Continue reading)

Permalink | Reply | 0 comments |
headers
Richard M. Stallman | 1 Jul 2007 19:19
Picon
Picon

Changes to emacs/lisp/ChangeLog,v

CVSROOT:	/cvsroot/emacs
Module name:	emacs
Changes by:	Richard M. Stallman <rms>	07/07/01 17:19:54

Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.11287
retrieving revision 1.11288
diff -u -b -r1.11287 -r1.11288
--- ChangeLog	1 Jul 2007 16:59:07 -0000	1.11287
+++ ChangeLog	1 Jul 2007 17:19:53 -0000	1.11288
 <at>  <at>  -1,3 +1,15  <at>  <at> 
+2007-07-01  Richard Stallman  <rms <at> gnu.org>
+
+	* cus-start.el (max-mini-window-height): Added.
+
+2007-07-01  Sean O'Rourke  <sorourke <at> cs.ucsd.edu>  (tiny change)
+
+	* complete.el (partial-completion-mode): Remove advice of
+	read-file-name-internal. 
+	(PC-do-completion): Rebind minibuffer-completion-table.
+	(PC-read-file-name-internal): New function doing what
+	read-file-name-internal advice did.
+
 2007-07-01  Paul Pogonyshev  <pogonyshev <at> gmx.net>

 	* emacs-lisp/byte-opt.el: Set `binding-is-magic'
Permalink | Reply | 0 comments |

Gmane