diff options
| author | Paul Eggert | 2016-11-04 15:02:03 -0700 |
|---|---|---|
| committer | Paul Eggert | 2016-11-04 15:02:03 -0700 |
| commit | ae0a1a890ec7b885e85cd945a21ca42fed80df3d (patch) | |
| tree | 495f1d851cb3a43a0e677bff9c09d4211a35fbde /src | |
| parent | 66b5222c3cd72839bf72e0b2a03912719c930451 (diff) | |
| parent | acae275b2752357497a2411876b83240ce7c8aec (diff) | |
| download | emacs-ae0a1a890ec7b885e85cd945a21ca42fed80df3d.tar.gz emacs-ae0a1a890ec7b885e85cd945a21ca42fed80df3d.zip | |
Merge from origin/emacs-25
acae275 ; Spelling fixes
d8fac73 Update README for precompiled windows Emacs.
23570fd Clarify documentation of 'vc-responsible-backend' wrt symlinks
f708cb2 Clarify doc string of 'transpose-sexps'
cd05b1d Fix docstring of 'browse-url-firefox-new-window-is-tab'
bdc89eb Improve documentation of 'font-lock-remove-keywords'
4a0c590 Fix documentation of the command summary key
0221b7a Mark relocation workarounds with REL_ALLOC
Diffstat (limited to 'src')
| -rw-r--r-- | src/emacs.c | 2 | ||||
| -rw-r--r-- | src/lread.c | 8 | ||||
| -rw-r--r-- | src/search.c | 9 |
3 files changed, 13 insertions, 6 deletions
diff --git a/src/emacs.c b/src/emacs.c index 13378c4c3b0..b74df21196a 100644 --- a/src/emacs.c +++ b/src/emacs.c | |||
| @@ -1193,7 +1193,7 @@ Using an Emacs configured with --with-x-toolkit=lucid does not have this problem | |||
| 1193 | 1193 | ||
| 1194 | /* Called before syms_of_fileio, because it sets up Qerror_condition. */ | 1194 | /* Called before syms_of_fileio, because it sets up Qerror_condition. */ |
| 1195 | syms_of_data (); | 1195 | syms_of_data (); |
| 1196 | syms_of_fns (); /* Before syms_of_charset which uses hashtables. */ | 1196 | syms_of_fns (); /* Before syms_of_charset which uses hash tables. */ |
| 1197 | syms_of_fileio (); | 1197 | syms_of_fileio (); |
| 1198 | /* Before syms_of_coding to initialize Vgc_cons_threshold. */ | 1198 | /* Before syms_of_coding to initialize Vgc_cons_threshold. */ |
| 1199 | syms_of_alloc (); | 1199 | syms_of_alloc (); |
diff --git a/src/lread.c b/src/lread.c index 58d518ce40b..eab9b8bea08 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -2574,7 +2574,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list) | |||
| 2574 | c = READCHAR; | 2574 | c = READCHAR; |
| 2575 | if (c == '(') | 2575 | if (c == '(') |
| 2576 | { | 2576 | { |
| 2577 | /* Accept extended format for hashtables (extensible to | 2577 | /* Accept extended format for hash tables (extensible to |
| 2578 | other types), e.g. | 2578 | other types), e.g. |
| 2579 | #s(hash-table size 2 test equal data (k1 v1 k2 v2)) */ | 2579 | #s(hash-table size 2 test equal data (k1 v1 k2 v2)) */ |
| 2580 | Lisp_Object tmp = read_list (0, readcharfun); | 2580 | Lisp_Object tmp = read_list (0, readcharfun); |
| @@ -2620,10 +2620,10 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list) | |||
| 2620 | if (!NILP (params[param_count + 1])) | 2620 | if (!NILP (params[param_count + 1])) |
| 2621 | param_count += 2; | 2621 | param_count += 2; |
| 2622 | 2622 | ||
| 2623 | /* This is the hashtable data. */ | 2623 | /* This is the hash table data. */ |
| 2624 | data = Fplist_get (tmp, Qdata); | 2624 | data = Fplist_get (tmp, Qdata); |
| 2625 | 2625 | ||
| 2626 | /* Now use params to make a new hashtable and fill it. */ | 2626 | /* Now use params to make a new hash table and fill it. */ |
| 2627 | ht = Fmake_hash_table (param_count, params); | 2627 | ht = Fmake_hash_table (param_count, params); |
| 2628 | 2628 | ||
| 2629 | while (CONSP (data)) | 2629 | while (CONSP (data)) |
| @@ -2631,7 +2631,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list) | |||
| 2631 | key = XCAR (data); | 2631 | key = XCAR (data); |
| 2632 | data = XCDR (data); | 2632 | data = XCDR (data); |
| 2633 | if (!CONSP (data)) | 2633 | if (!CONSP (data)) |
| 2634 | error ("Odd number of elements in hashtable data"); | 2634 | error ("Odd number of elements in hash table data"); |
| 2635 | val = XCAR (data); | 2635 | val = XCAR (data); |
| 2636 | data = XCDR (data); | 2636 | data = XCDR (data); |
| 2637 | Fputhash (key, val, ht); | 2637 | Fputhash (key, val, ht); |
diff --git a/src/search.c b/src/search.c index 25d81f2baf6..e597c33a0fb 100644 --- a/src/search.c +++ b/src/search.c | |||
| @@ -2022,20 +2022,27 @@ boyer_moore (EMACS_INT n, unsigned char *base_pat, | |||
| 2022 | cursor += dirlen - i - direction; /* fix cursor */ | 2022 | cursor += dirlen - i - direction; /* fix cursor */ |
| 2023 | if (i + direction == 0) | 2023 | if (i + direction == 0) |
| 2024 | { | 2024 | { |
| 2025 | ptrdiff_t position, start, end, cursor_off; | 2025 | ptrdiff_t position, start, end; |
| 2026 | #ifdef REL_ALLOC | ||
| 2027 | ptrdiff_t cursor_off; | ||
| 2028 | #endif | ||
| 2026 | 2029 | ||
| 2027 | cursor -= direction; | 2030 | cursor -= direction; |
| 2028 | 2031 | ||
| 2029 | position = pos_byte + cursor - p2 + ((direction > 0) | 2032 | position = pos_byte + cursor - p2 + ((direction > 0) |
| 2030 | ? 1 - len_byte : 0); | 2033 | ? 1 - len_byte : 0); |
| 2034 | #ifdef REL_ALLOC | ||
| 2031 | /* set_search_regs might call malloc, which could | 2035 | /* set_search_regs might call malloc, which could |
| 2032 | cause ralloc.c relocate buffer text. We need to | 2036 | cause ralloc.c relocate buffer text. We need to |
| 2033 | update pointers into buffer text due to that. */ | 2037 | update pointers into buffer text due to that. */ |
| 2034 | cursor_off = cursor - p2; | 2038 | cursor_off = cursor - p2; |
| 2039 | #endif | ||
| 2035 | set_search_regs (position, len_byte); | 2040 | set_search_regs (position, len_byte); |
| 2041 | #ifdef REL_ALLOC | ||
| 2036 | p_limit = BYTE_POS_ADDR (limit); | 2042 | p_limit = BYTE_POS_ADDR (limit); |
| 2037 | p2 = BYTE_POS_ADDR (pos_byte); | 2043 | p2 = BYTE_POS_ADDR (pos_byte); |
| 2038 | cursor = p2 + cursor_off; | 2044 | cursor = p2 + cursor_off; |
| 2045 | #endif | ||
| 2039 | 2046 | ||
| 2040 | if (NILP (Vinhibit_changing_match_data)) | 2047 | if (NILP (Vinhibit_changing_match_data)) |
| 2041 | { | 2048 | { |