[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r109121: Merge from emacs-24
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r109121: Merge from emacs-24 |
Date: |
Tue, 17 Jul 2012 07:52:00 -0400 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 109121 [merge]
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2012-07-17 07:52:00 -0400
message:
Merge from emacs-24
modified:
admin/CPP-DEFINES
admin/ChangeLog
admin/bzrmerge.el
lisp/ChangeLog
lisp/gnus/ChangeLog
lisp/gnus/shr.el
lisp/progmodes/sh-script.el
src/ChangeLog
src/buffer.c
src/dired.c
src/fileio.c
src/s/msdos.h
=== modified file 'admin/CPP-DEFINES'
--- a/admin/CPP-DEFINES 2012-07-11 23:44:03 +0000
+++ b/admin/CPP-DEFINES 2012-07-17 11:52:00 +0000
@@ -95,7 +95,6 @@
EMACS_CONFIG_OPTIONS
EMACS_INT
EMACS_UINT
-FILE_SYSTEM_CASE
FLOAT_CHECK_DOMAIN
GC_LISP_OBJECT_ALIGNMENT
GC_MARK_SECONDARY_STACK
=== modified file 'admin/ChangeLog'
--- a/admin/ChangeLog 2012-07-14 02:08:32 +0000
+++ b/admin/ChangeLog 2012-07-17 11:52:00 +0000
@@ -1,3 +1,10 @@
+2012-07-17 Eli Zaretskii <address@hidden>
+
+ * CPP-DEFINES: Remove FILE_SYSTEM_CASE.
+
+2012-07-17 Chong Yidong <address@hidden>
+
+ * Version 24.1 released.
2012-07-11 Paul Eggert <address@hidden>
Assume mkdir, perror, rename, rmdir, strerror.
=== modified file 'admin/bzrmerge.el'
--- a/admin/bzrmerge.el 2012-07-10 11:51:54 +0000
+++ b/admin/bzrmerge.el 2012-07-17 11:52:00 +0000
@@ -138,17 +138,17 @@
`N' to include it and go on to the next revision,
`n' to not skip, but continue to search this log entry for skip regexps,
`q' to quit merging."))
- (case (save-excursion
+ (pcase (save-excursion
(read-char-choice
(format "%s: Skip (y/n/N/q/%s)? " str
(key-description (vector help-char)))
'(?y ?n ?N ?q)))
- (?y (setq skip t))
- (?q (keyboard-quit))
+ (`?y (setq skip t))
+ (`?q (keyboard-quit))
;; A single log entry can match skip-regexp multiple
;; times. If you are sure you don't want to skip it,
;; you don't want to be asked multiple times.
- (?N (setq skip 'no))))))
+ (`?N (setq skip 'no))))))
(if (eq skip t)
(push revno skipped)
(push revno revnos)))))
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-07-17 11:40:23 +0000
+++ b/lisp/ChangeLog 2012-07-17 11:52:00 +0000
@@ -1,5 +1,11 @@
2012-07-17 Stefan Monnier <address@hidden>
+ * progmodes/sh-script.el (sh-syntax-propertize-function): Fix last
+ change (bug#11826).
+
+2012-07-17 Glenn Morris <address@hidden>
+2012-07-17 Stefan Monnier <address@hidden>
+
* progmodes/cc-engine.el (c-forward-sws, c-backward-sws):
Avoid spuriously marking the buffer as modified because of c-is-sws.
@@ -340,6 +346,12 @@
read-file-name-completion-ignore-case is non-nil. Don't use
case-fold-search for this purpose. (Bug#11827)
+2012-07-17 Andreas Schwab <address@hidden>
+
+ * calendar/cal-dst.el (calendar-current-time-zone):
+ Return calendar-current-time-zone-cache if non-nil.
+
+2012-07-17 Masatake YAMATO <address@hidden>
2012-07-06 Andreas Schwab <address@hidden>
* calendar/cal-dst.el (calendar-current-time-zone):
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2012-07-14 02:08:32 +0000
+++ b/lisp/gnus/ChangeLog 2012-07-17 11:52:00 +0000
@@ -1,3 +1,8 @@
+2012-07-17 Andreas Schwab <address@hidden>
+
+ * shr.el (shr-expand-url): Handle URL starting with `//'.
+
+2012-07-17 Toke Høiland-Jørgensen <address@hidden> (tiny change)
2012-07-13 Chong Yidong <address@hidden>
* smime.el (smime-certificate-info): Set buffer-read-only directly,
=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el 2012-06-27 14:40:22 +0000
+++ b/lisp/gnus/shr.el 2012-07-17 11:52:00 +0000
@@ -484,6 +484,9 @@
(string-match "\\`[a-z]*:" url)
(not shr-base))
url)
+ ((and (string-match "\\`//" url)
+ (string-match "\\`[a-z]*:" shr-base))
+ (concat (match-string 0 shr-base) url))
((and (not (string-match "/\\'" shr-base))
(not (string-match "\\`/" url)))
(concat shr-base "/" url))
=== modified file 'lisp/progmodes/sh-script.el'
--- a/lisp/progmodes/sh-script.el 2012-07-17 08:38:12 +0000
+++ b/lisp/progmodes/sh-script.el 2012-07-17 11:52:00 +0000
@@ -1096,12 +1096,12 @@
(")" (0 (sh-font-lock-paren (match-beginning 0))))
;; Highlight (possibly nested) subshells inside "" quoted
;; regions correctly.
- ("\"\\(?:\\(?:[^\\\"]\\|\\)*?[^\\]\\(?:\\\\\\\\\\)*\\)??\\(\\$(\\|`\\)"
+ ("\"\\(?:\\(?:[^\\\"]\\|\\\\.\\)*?\\)??\\(\\$(\\|`\\)"
(1 (ignore
- ;; Save excursion because we want to also apply other
- ;; syntax-propertize rules within the affected region.
- (if (nth 8 (syntax-ppss))
+ (if (nth 8 (save-excursion (syntax-ppss (match-beginning 0))))
(goto-char (1+ (match-beginning 0)))
+ ;; Save excursion because we want to also apply other
+ ;; syntax-propertize rules within the affected region.
(save-excursion
(sh-font-lock-quoted-subshell end)))))))
(point) end))
=== modified file 'src/ChangeLog'
--- a/src/ChangeLog 2012-07-17 09:12:24 +0000
+++ b/src/ChangeLog 2012-07-17 11:52:00 +0000
@@ -1,3 +1,34 @@
+2012-07-17 Eli Zaretskii <address@hidden>
+
+ Remove FILE_SYSTEM_CASE.
+ * s/msdos.h (FILE_SYSTEM_CASE): Don't define.
+
+ * fileio.c (FILE_SYSTEM_CASE): Don't define.
+ (Ffile_name_directory, Fexpand_file_name): Don't use FILE_SYSTEM_CASE.
+ Fixes problems on MS-DOS with Vtemp_file_name_pattern when
+ call-process-region passes it through expand-file-name.
+
+ * dired.c (file_name_completion): Don't use FILE_SYSTEM_CASE.
+
+2012-07-17 Andreas Schwab <address@hidden>
+
+ Fix crash when creating indirect buffer (Bug#11917)
+ * buffer.c (buffer_lisp_local_variables): Add argument CLONE.
+ Don't handle unbound variables specially if non-zero.
+ (Fbuffer_local_variables): Pass zero.
+ (clone_per_buffer_values): Pass non-zero.
+
+2012-07-17 Andreas Schwab <address@hidden>
+
+ * gnutls.c (emacs_gnutls_handshake): Revert last change. Add QUIT
+ to make the loop interruptible.
+
+2012-07-17 Andreas Schwab <address@hidden>
+
+ * gnutls.c (emacs_gnutls_handshake): Only retry if
+ GNUTLS_E_INTERRUPTED.
+
+2012-07-17 Eli Zaretskii <address@hidden>
2012-07-17 Dmitry Antipov <address@hidden>
Cleanup and convert miscellaneous checks to eassert.
=== modified file 'src/buffer.c'
--- a/src/buffer.c 2012-07-17 04:29:50 +0000
+++ b/src/buffer.c 2012-07-17 11:52:00 +0000
@@ -153,7 +153,7 @@
static void free_buffer_text (struct buffer *b);
static struct Lisp_Overlay * copy_overlays (struct buffer *, struct
Lisp_Overlay *);
static void modify_overlay (struct buffer *, ptrdiff_t, ptrdiff_t);
-static Lisp_Object buffer_lisp_local_variables (struct buffer *);
+static Lisp_Object buffer_lisp_local_variables (struct buffer *, int);
/* For debugging; temporary. See set_buffer_internal. */
/* Lisp_Object Qlisp_mode, Vcheck_symbol; */
@@ -487,7 +487,7 @@
/* Get (a copy of) the alist of Lisp-level local variables of FROM
and install that in TO. */
- BVAR (to, local_var_alist) = buffer_lisp_local_variables (from);
+ BVAR (to, local_var_alist) = buffer_lisp_local_variables (from, 1);
}
@@ -1012,10 +1012,12 @@
/* Return an alist of the Lisp-level buffer-local bindings of
buffer BUF. That is, don't include the variables maintained
- in special slots in the buffer object. */
+ in special slots in the buffer object.
+ If CLONE is zero elements of the form (VAR . unbound) are replaced
+ by VAR. */
static Lisp_Object
-buffer_lisp_local_variables (struct buffer *buf)
+buffer_lisp_local_variables (struct buffer *buf, int clone)
{
Lisp_Object result = Qnil;
register Lisp_Object tail;
@@ -1035,7 +1037,7 @@
if (buf != current_buffer)
val = XCDR (elt);
- result = Fcons (EQ (val, Qunbound)
+ result = Fcons (!clone && EQ (val, Qunbound)
? XCAR (elt)
: Fcons (XCAR (elt), val),
result);
@@ -1064,7 +1066,7 @@
buf = XBUFFER (buffer);
}
- result = buffer_lisp_local_variables (buf);
+ result = buffer_lisp_local_variables (buf, 0);
/* Add on all the variables stored in special slots. */
{
=== modified file 'src/dired.c'
--- a/src/dired.c 2012-07-03 18:24:42 +0000
+++ b/src/dired.c 2012-07-17 11:52:00 +0000
@@ -470,9 +470,6 @@
CHECK_STRING (file);
-#ifdef FILE_SYSTEM_CASE
- file = FILE_SYSTEM_CASE (file);
-#endif
bestmatch = Qnil;
encoded_file = encoded_dir = Qnil;
GCPRO5 (file, dirname, bestmatch, encoded_file, encoded_dir);
=== modified file 'src/fileio.c'
--- a/src/fileio.c 2012-07-10 23:24:36 +0000
+++ b/src/fileio.c 2012-07-17 11:52:00 +0000
@@ -84,10 +84,6 @@
#include "commands.h"
-#ifndef FILE_SYSTEM_CASE
-#define FILE_SYSTEM_CASE(filename) (filename)
-#endif
-
/* Nonzero during writing of auto-save files. */
static int auto_saving;
@@ -334,7 +330,6 @@
return STRINGP (handled_name) ? handled_name : Qnil;
}
- filename = FILE_SYSTEM_CASE (filename);
#ifdef DOS_NT
beg = alloca (SBYTES (filename) + 1);
memcpy (beg, SSDATA (filename), SBYTES (filename) + 1);
@@ -861,7 +856,6 @@
UNGCPRO;
}
}
- name = FILE_SYSTEM_CASE (name);
multibyte = STRING_MULTIBYTE (name);
if (multibyte != STRING_MULTIBYTE (default_directory))
{
=== modified file 'src/s/msdos.h'
--- a/src/s/msdos.h 2012-07-14 10:03:30 +0000
+++ b/src/s/msdos.h 2012-07-17 11:52:00 +0000
@@ -86,10 +86,6 @@
:se=</SO>:so=<SO>:us=<UL>:ue=</UL>:md=<BD>:mh=<DIM>:mb=<BL>:mr=<RV>:me=<NV>:\
:AB=<BG %d>:AF=<FG %d>:op=<DefC>:"
-/* Define this to a function (Fdowncase, Fupcase) if your file system
- likes that. */
-#define FILE_SYSTEM_CASE Fmsdos_downcase_filename
-
/* Define this to be the separator between devices and paths. Used by
lisp.h to define IS_DEVICE_SEP. */
#define DEVICE_SEP ':'
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r109121: Merge from emacs-24,
Stefan Monnier <=