aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--admin/ChangeLog5
-rw-r--r--admin/unidata/Makefile.in2
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/erc/ChangeLog5
-rw-r--r--lisp/erc/erc-backend.el4
-rw-r--r--lisp/erc/erc-button.el2
-rw-r--r--lisp/erc/erc-join.el4
-rw-r--r--lisp/erc/erc-match.el2
-rw-r--r--lisp/erc/erc-stamp.el2
-rw-r--r--lisp/erc/erc.el4
-rw-r--r--lisp/startup.el1
-rw-r--r--src/ChangeLog14
-rw-r--r--src/fileio.c7
-rw-r--r--src/nsterm.h2
-rw-r--r--src/nsterm.m18
15 files changed, 54 insertions, 22 deletions
diff --git a/admin/ChangeLog b/admin/ChangeLog
index 17de5a49902..1c439504892 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,8 @@
12014-11-10 Eli Zaretskii <eliz@gnu.org>
2
3 * unidata/Makefile.in (${top_srcdir}/src/macuvs.h): Use
4 unmsys--file-name. (Bug#18955)
5
12014-11-10 Glenn Morris <rgm@gnu.org> 62014-11-10 Glenn Morris <rgm@gnu.org>
2 7
3 * admin.el (set-version): No need to update doc/man/emacs.1. 8 * admin.el (set-version): No need to update doc/man/emacs.1.
diff --git a/admin/unidata/Makefile.in b/admin/unidata/Makefile.in
index 05d3f929f18..94504818d12 100644
--- a/admin/unidata/Makefile.in
+++ b/admin/unidata/Makefile.in
@@ -41,7 +41,7 @@ all: ${top_srcdir}/src/macuvs.h unifiles
41${top_srcdir}/src/macuvs.h: ${srcdir}/uvs.el ${srcdir}/IVD_Sequences.txt | \ 41${top_srcdir}/src/macuvs.h: ${srcdir}/uvs.el ${srcdir}/IVD_Sequences.txt | \
42 ${srcdir}/uvs.elc 42 ${srcdir}/uvs.elc
43 ${emacs} -L ${srcdir} -l uvs \ 43 ${emacs} -L ${srcdir} -l uvs \
44 --eval '(uvs-print-table-ivd "${srcdir}/IVD_Sequences.txt" "Adobe-Japan1")' \ 44 --eval '(uvs-print-table-ivd (unmsys--file-name "${srcdir}/IVD_Sequences.txt") "Adobe-Japan1")' \
45 > $@ 45 > $@
46 46
47%.elc: %.el 47%.elc: %.el
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 94473f03b7f..c170c50c9f8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
12014-11-10 Glenn Morris <rgm@gnu.org>
2
3 * startup.el (command-line): Handle nil elements in load-path.
4
12014-11-10 Stefan Monnier <monnier@iro.umontreal.ca> 52014-11-10 Stefan Monnier <monnier@iro.umontreal.ca>
2 6
3 * help.el (view-lossage): Include the actual commands run. 7 * help.el (view-lossage): Include the actual commands run.
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index 0875994e775..475b99edb93 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,8 @@
12014-11-10 Kelvin White <kwhite@gnu.org>
2
3 * erc-match.el, erc-join.el, erc-stamp.el, erc-backend.el, erc.el:
4 * erc-button.el: Update version to 24.5.
5
12014-11-05 Stefan Monnier <monnier@iro.umontreal.ca> 62014-11-05 Stefan Monnier <monnier@iro.umontreal.ca>
2 7
3 * erc.el (erc-send-input): Bind `str' dynamically (bug#18936). 8 * erc.el (erc-send-input): Bind `str' dynamically (bug#18936).
diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el
index fb22f58822d..2c6b03720f0 100644
--- a/lisp/erc/erc-backend.el
+++ b/lisp/erc/erc-backend.el
@@ -333,7 +333,7 @@ Good luck."
333This will only be consulted if the coding system in 333This will only be consulted if the coding system in
334`erc-server-coding-system' is `undecided'." 334`erc-server-coding-system' is `undecided'."
335 :group 'erc-server 335 :group 'erc-server
336 :version "24.1" 336 :version "24.5"
337 :type '(repeat coding-system)) 337 :type '(repeat coding-system))
338 338
339(defcustom erc-server-coding-system (if (and (fboundp 'coding-system-p) 339(defcustom erc-server-coding-system (if (and (fboundp 'coding-system-p)
@@ -400,7 +400,7 @@ isn't displayed."
400(defcustom erc-server-timestamp-format "%Y-%m-%d %T" 400(defcustom erc-server-timestamp-format "%Y-%m-%d %T"
401 "Timestamp format used with server response messages. 401 "Timestamp format used with server response messages.
402This string is processed using `format-time-string'." 402This string is processed using `format-time-string'."
403 :version "24.3" 403 :version "24.5"
404 :type 'string 404 :type 'string
405 :group 'erc-server) 405 :group 'erc-server)
406 406
diff --git a/lisp/erc/erc-button.el b/lisp/erc/erc-button.el
index 6e2c60cf6fa..b83fd9eeeb9 100644
--- a/lisp/erc/erc-button.el
+++ b/lisp/erc/erc-button.el
@@ -183,7 +183,7 @@ PAR is a number of a regexp grouping whose text will be passed to
183 'nicknames, these are ignored, and CALLBACK will be called with 183 'nicknames, these are ignored, and CALLBACK will be called with
184 the nickname matched as the argument." 184 the nickname matched as the argument."
185 :group 'erc-button 185 :group 'erc-button
186 :version "24.3" ; remove finger (bug#4443) 186 :version "24.5" ; remove finger (bug#4443)
187 :type '(repeat 187 :type '(repeat
188 (list :tag "Button" 188 (list :tag "Button"
189 (choice :tag "Matches" 189 (choice :tag "Matches"
diff --git a/lisp/erc/erc-join.el b/lisp/erc/erc-join.el
index e47e6e0c89e..0a24cb864da 100644
--- a/lisp/erc/erc-join.el
+++ b/lisp/erc/erc-join.el
@@ -83,7 +83,7 @@ If the value is `ident', autojoin after successful NickServ
83identification, or after `erc-autojoin-delay' seconds. 83identification, or after `erc-autojoin-delay' seconds.
84Any other value means the same as `connect'." 84Any other value means the same as `connect'."
85 :group 'erc-autojoin 85 :group 'erc-autojoin
86 :version "24.1" 86 :version "24.5"
87 :type '(choice (const :tag "On Connection" connect) 87 :type '(choice (const :tag "On Connection" connect)
88 (const :tag "When Identified" ident))) 88 (const :tag "When Identified" ident)))
89 89
@@ -93,7 +93,7 @@ This only takes effect if `erc-autojoin-timing' is `ident'.
93If NickServ identification occurs before this delay expires, ERC 93If NickServ identification occurs before this delay expires, ERC
94autojoins immediately at that time." 94autojoins immediately at that time."
95 :group 'erc-autojoin 95 :group 'erc-autojoin
96 :version "24.1" 96 :version "24.5"
97 :type 'integer) 97 :type 'integer)
98 98
99(defcustom erc-autojoin-domain-only t 99(defcustom erc-autojoin-domain-only t
diff --git a/lisp/erc/erc-match.el b/lisp/erc/erc-match.el
index b10da96f6f4..a8a4e58362c 100644
--- a/lisp/erc/erc-match.el
+++ b/lisp/erc/erc-match.el
@@ -237,7 +237,7 @@ current-nick, keyword, pal, dangerous-host, fool"
237useful for excluding all the things like MOTDs from the server 237useful for excluding all the things like MOTDs from the server
238and other miscellaneous functions." 238and other miscellaneous functions."
239 :group 'erc-match 239 :group 'erc-match
240 :version "24.3" 240 :version "24.5"
241 :type 'boolean) 241 :type 'boolean)
242 242
243;; Internal variables: 243;; Internal variables:
diff --git a/lisp/erc/erc-stamp.el b/lisp/erc/erc-stamp.el
index 39ffbb4bf38..37982069abe 100644
--- a/lisp/erc/erc-stamp.el
+++ b/lisp/erc/erc-stamp.el
@@ -151,7 +151,7 @@ the minibuffer."
151 "Whether the timestamps should be intangible, i.e. prevent the point 151 "Whether the timestamps should be intangible, i.e. prevent the point
152from entering them and instead jump over them." 152from entering them and instead jump over them."
153 :group 'erc-stamp 153 :group 'erc-stamp
154 :version "25.1" 154 :version "24.5"
155 :type 'boolean) 155 :type 'boolean)
156 156
157(defface erc-timestamp-face '((t :weight bold :foreground "green")) 157(defface erc-timestamp-face '((t :weight bold :foreground "green"))
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index 37b24eaaa60..4acb7340fb2 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -104,7 +104,7 @@
104 104
105(defgroup erc-lurker nil 105(defgroup erc-lurker nil
106 "Hide specified message types sent by lurkers" 106 "Hide specified message types sent by lurkers"
107 :version "24.3" 107 :version "24.5"
108 :group 'erc-ignore) 108 :group 'erc-ignore)
109 109
110(defgroup erc-query nil 110(defgroup erc-query nil
@@ -5291,7 +5291,7 @@ into the ERC buffer, that text is not sent to the IRC server.
5291If the value is nil, `erc-send-current-line' always considers any 5291If the value is nil, `erc-send-current-line' always considers any
5292submitted line to be intentional." 5292submitted line to be intentional."
5293 :group 'erc 5293 :group 'erc
5294 :version "24.4" 5294 :version "24.5"
5295 :type '(choice number (other :tag "disabled" nil))) 5295 :type '(choice number (other :tag "disabled" nil)))
5296 5296
5297(defun erc-send-current-line () 5297(defun erc-send-current-line ()
diff --git a/lisp/startup.el b/lisp/startup.el
index a1d1c3120fb..c04b16c43c4 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1286,6 +1286,7 @@ the `--debug-init' option to view a complete error backtrace."
1286 (let (warned) 1286 (let (warned)
1287 (dolist (dir load-path) 1287 (dolist (dir load-path)
1288 (and (not warned) 1288 (and (not warned)
1289 (stringp dir)
1289 (string-equal (file-name-as-directory (expand-file-name dir)) 1290 (string-equal (file-name-as-directory (expand-file-name dir))
1290 (expand-file-name user-emacs-directory)) 1291 (expand-file-name user-emacs-directory))
1291 (setq warned t) 1292 (setq warned t)
diff --git a/src/ChangeLog b/src/ChangeLog
index b51f3c15a66..d44de652dde 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,17 @@
12014-11-10 Eli Zaretskii <eliz@gnu.org>
2
3 * fileio.c (Finsert_file_contents): Invalidate buffer caches also
4 when the inserted text does not need decoding. (Bug#18982)
5
62014-11-10 Jan Djärv <jan.h.d@swipnet.se>
7
8 * nsterm.h (EmacsScroller): judge returns bool.
9
10 * nsterm.m (ns_set_vertical_scroll_bar): Release bar.
11 (ns_judge_scroll_bars): Only set removed if judge returns true.
12 (judge): Returns bool == condemned. Remove self from window.
13 (setPosition:portion:whole:): Remove raise SIGIO (Bug#18757).
14
12014-11-10 Stefan Monnier <monnier@iro.umontreal.ca> 152014-11-10 Stefan Monnier <monnier@iro.umontreal.ca>
2 16
3 * keyboard.c (command_loop_1): Record this-command in recent-keys. 17 * keyboard.c (command_loop_1): Record this-command in recent-keys.
diff --git a/src/fileio.c b/src/fileio.c
index cdbd0be28ad..7d7b0b3148f 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4329,8 +4329,11 @@ by calling `format-decode', which see. */)
4329 coding_system = CODING_ID_NAME (coding.id); 4329 coding_system = CODING_ID_NAME (coding.id);
4330 } 4330 }
4331 else if (inserted > 0) 4331 else if (inserted > 0)
4332 adjust_after_insert (PT, PT_BYTE, PT + inserted, PT_BYTE + inserted, 4332 {
4333 inserted); 4333 invalidate_buffer_caches (current_buffer, PT, PT + inserted);
4334 adjust_after_insert (PT, PT_BYTE, PT + inserted, PT_BYTE + inserted,
4335 inserted);
4336 }
4334 4337
4335 /* Call after-change hooks for the inserted text, aside from the case 4338 /* Call after-change hooks for the inserted text, aside from the case
4336 of normal visiting (not with REPLACE), which is done in a new buffer 4339 of normal visiting (not with REPLACE), which is done in a new buffer
diff --git a/src/nsterm.h b/src/nsterm.h
index 7997072dcac..b33e6b2ee08 100644
--- a/src/nsterm.h
+++ b/src/nsterm.h
@@ -396,7 +396,7 @@ typedef float EmacsCGFloat;
396- repeatScroll: (NSTimer *)sender; 396- repeatScroll: (NSTimer *)sender;
397- condemn; 397- condemn;
398- reprieve; 398- reprieve;
399- judge; 399- (bool)judge;
400@end 400@end
401 401
402 402
diff --git a/src/nsterm.m b/src/nsterm.m
index 577b2a27724..64951da308f 100644
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -3803,6 +3803,7 @@ ns_set_vertical_scroll_bar (struct window *window,
3803 bar = XNS_SCROLL_BAR (window->vertical_scroll_bar); 3803 bar = XNS_SCROLL_BAR (window->vertical_scroll_bar);
3804 [bar removeFromSuperview]; 3804 [bar removeFromSuperview];
3805 wset_vertical_scroll_bar (window, Qnil); 3805 wset_vertical_scroll_bar (window, Qnil);
3806 [bar release];
3806 } 3807 }
3807 ns_clear_frame_area (f, left, top, width, height); 3808 ns_clear_frame_area (f, left, top, width, height);
3808 unblock_input (); 3809 unblock_input ();
@@ -3996,8 +3997,8 @@ ns_judge_scroll_bars (struct frame *f)
3996 { 3997 {
3997 view = [subviews objectAtIndex: i]; 3998 view = [subviews objectAtIndex: i];
3998 if (![view isKindOfClass: [EmacsScroller class]]) continue; 3999 if (![view isKindOfClass: [EmacsScroller class]]) continue;
3999 [view judge]; 4000 if ([view judge])
4000 removed = YES; 4001 removed = YES;
4001 } 4002 }
4002 4003
4003 if (removed) 4004 if (removed)
@@ -7227,9 +7228,10 @@ if (cols > 0 && rows > 0)
7227} 7228}
7228 7229
7229 7230
7230- judge 7231-(bool)judge
7231{ 7232{
7232 NSTRACE (judge); 7233 NSTRACE (judge);
7234 bool ret = condemned;
7233 if (condemned) 7235 if (condemned)
7234 { 7236 {
7235 EmacsView *view; 7237 EmacsView *view;
@@ -7238,11 +7240,14 @@ if (cols > 0 && rows > 0)
7238 view = (EmacsView *)FRAME_NS_VIEW (frame); 7240 view = (EmacsView *)FRAME_NS_VIEW (frame);
7239 if (view != nil) 7241 if (view != nil)
7240 view->scrollbarsNeedingUpdate++; 7242 view->scrollbarsNeedingUpdate++;
7243 if (window)
7244 wset_vertical_scroll_bar (window, Qnil);
7245 window = 0;
7241 [self removeFromSuperview]; 7246 [self removeFromSuperview];
7242 [self release]; 7247 [self release];
7243 unblock_input (); 7248 unblock_input ();
7244 } 7249 }
7245 return self; 7250 return ret;
7246} 7251}
7247 7252
7248 7253
@@ -7297,11 +7302,6 @@ if (cols > 0 && rows > 0)
7297#endif 7302#endif
7298 } 7303 }
7299 7304
7300 /* Events may come here even if the event loop is not running.
7301 If we don't enter the event loop, the scroll bar will not update.
7302 So send SIGIO to ourselves. */
7303 if (apploopnr == 0) raise (SIGIO);
7304
7305 return self; 7305 return self;
7306} 7306}
7307 7307