mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-25 07:28:20 +00:00
Merge from emacs-24; up to 117698
This commit is contained in:
commit
c832df2ec2
@ -1,3 +1,8 @@
|
|||||||
|
2014-11-10 Eli Zaretskii <eliz@gnu.org>
|
||||||
|
|
||||||
|
* unidata/Makefile.in (${top_srcdir}/src/macuvs.h): Use
|
||||||
|
unmsys--file-name. (Bug#18955)
|
||||||
|
|
||||||
2014-11-10 Glenn Morris <rgm@gnu.org>
|
2014-11-10 Glenn Morris <rgm@gnu.org>
|
||||||
|
|
||||||
* admin.el (set-version): No need to update doc/man/emacs.1.
|
* admin.el (set-version): No need to update doc/man/emacs.1.
|
||||||
|
@ -41,7 +41,7 @@ all: ${top_srcdir}/src/macuvs.h unifiles
|
|||||||
${top_srcdir}/src/macuvs.h: ${srcdir}/uvs.el ${srcdir}/IVD_Sequences.txt | \
|
${top_srcdir}/src/macuvs.h: ${srcdir}/uvs.el ${srcdir}/IVD_Sequences.txt | \
|
||||||
${srcdir}/uvs.elc
|
${srcdir}/uvs.elc
|
||||||
${emacs} -L ${srcdir} -l uvs \
|
${emacs} -L ${srcdir} -l uvs \
|
||||||
--eval '(uvs-print-table-ivd "${srcdir}/IVD_Sequences.txt" "Adobe-Japan1")' \
|
--eval '(uvs-print-table-ivd (unmsys--file-name "${srcdir}/IVD_Sequences.txt") "Adobe-Japan1")' \
|
||||||
> $@
|
> $@
|
||||||
|
|
||||||
%.elc: %.el
|
%.elc: %.el
|
||||||
|
@ -1,3 +1,7 @@
|
|||||||
|
2014-11-10 Glenn Morris <rgm@gnu.org>
|
||||||
|
|
||||||
|
* startup.el (command-line): Handle nil elements in load-path.
|
||||||
|
|
||||||
2014-11-10 Stefan Monnier <monnier@iro.umontreal.ca>
|
2014-11-10 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||||
|
|
||||||
* help.el (view-lossage): Include the actual commands run.
|
* help.el (view-lossage): Include the actual commands run.
|
||||||
|
@ -1,3 +1,8 @@
|
|||||||
|
2014-11-10 Kelvin White <kwhite@gnu.org>
|
||||||
|
|
||||||
|
* erc-match.el, erc-join.el, erc-stamp.el, erc-backend.el, erc.el:
|
||||||
|
* erc-button.el: Update version to 24.5.
|
||||||
|
|
||||||
2014-11-05 Stefan Monnier <monnier@iro.umontreal.ca>
|
2014-11-05 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||||
|
|
||||||
* erc.el (erc-send-input): Bind `str' dynamically (bug#18936).
|
* erc.el (erc-send-input): Bind `str' dynamically (bug#18936).
|
||||||
|
@ -333,7 +333,7 @@ Good luck."
|
|||||||
This will only be consulted if the coding system in
|
This will only be consulted if the coding system in
|
||||||
`erc-server-coding-system' is `undecided'."
|
`erc-server-coding-system' is `undecided'."
|
||||||
:group 'erc-server
|
:group 'erc-server
|
||||||
:version "24.1"
|
:version "24.5"
|
||||||
:type '(repeat coding-system))
|
:type '(repeat coding-system))
|
||||||
|
|
||||||
(defcustom erc-server-coding-system (if (and (fboundp 'coding-system-p)
|
(defcustom erc-server-coding-system (if (and (fboundp 'coding-system-p)
|
||||||
@ -400,7 +400,7 @@ isn't displayed."
|
|||||||
(defcustom erc-server-timestamp-format "%Y-%m-%d %T"
|
(defcustom erc-server-timestamp-format "%Y-%m-%d %T"
|
||||||
"Timestamp format used with server response messages.
|
"Timestamp format used with server response messages.
|
||||||
This string is processed using `format-time-string'."
|
This string is processed using `format-time-string'."
|
||||||
:version "24.3"
|
:version "24.5"
|
||||||
:type 'string
|
:type 'string
|
||||||
:group 'erc-server)
|
:group 'erc-server)
|
||||||
|
|
||||||
|
@ -183,7 +183,7 @@ PAR is a number of a regexp grouping whose text will be passed to
|
|||||||
'nicknames, these are ignored, and CALLBACK will be called with
|
'nicknames, these are ignored, and CALLBACK will be called with
|
||||||
the nickname matched as the argument."
|
the nickname matched as the argument."
|
||||||
:group 'erc-button
|
:group 'erc-button
|
||||||
:version "24.3" ; remove finger (bug#4443)
|
:version "24.5" ; remove finger (bug#4443)
|
||||||
:type '(repeat
|
:type '(repeat
|
||||||
(list :tag "Button"
|
(list :tag "Button"
|
||||||
(choice :tag "Matches"
|
(choice :tag "Matches"
|
||||||
|
@ -83,7 +83,7 @@ If the value is `ident', autojoin after successful NickServ
|
|||||||
identification, or after `erc-autojoin-delay' seconds.
|
identification, or after `erc-autojoin-delay' seconds.
|
||||||
Any other value means the same as `connect'."
|
Any other value means the same as `connect'."
|
||||||
:group 'erc-autojoin
|
:group 'erc-autojoin
|
||||||
:version "24.1"
|
:version "24.5"
|
||||||
:type '(choice (const :tag "On Connection" connect)
|
:type '(choice (const :tag "On Connection" connect)
|
||||||
(const :tag "When Identified" ident)))
|
(const :tag "When Identified" ident)))
|
||||||
|
|
||||||
@ -93,7 +93,7 @@ This only takes effect if `erc-autojoin-timing' is `ident'.
|
|||||||
If NickServ identification occurs before this delay expires, ERC
|
If NickServ identification occurs before this delay expires, ERC
|
||||||
autojoins immediately at that time."
|
autojoins immediately at that time."
|
||||||
:group 'erc-autojoin
|
:group 'erc-autojoin
|
||||||
:version "24.1"
|
:version "24.5"
|
||||||
:type 'integer)
|
:type 'integer)
|
||||||
|
|
||||||
(defcustom erc-autojoin-domain-only t
|
(defcustom erc-autojoin-domain-only t
|
||||||
|
@ -237,7 +237,7 @@ current-nick, keyword, pal, dangerous-host, fool"
|
|||||||
useful for excluding all the things like MOTDs from the server
|
useful for excluding all the things like MOTDs from the server
|
||||||
and other miscellaneous functions."
|
and other miscellaneous functions."
|
||||||
:group 'erc-match
|
:group 'erc-match
|
||||||
:version "24.3"
|
:version "24.5"
|
||||||
:type 'boolean)
|
:type 'boolean)
|
||||||
|
|
||||||
;; Internal variables:
|
;; Internal variables:
|
||||||
|
@ -151,7 +151,7 @@ the minibuffer."
|
|||||||
"Whether the timestamps should be intangible, i.e. prevent the point
|
"Whether the timestamps should be intangible, i.e. prevent the point
|
||||||
from entering them and instead jump over them."
|
from entering them and instead jump over them."
|
||||||
:group 'erc-stamp
|
:group 'erc-stamp
|
||||||
:version "25.1"
|
:version "24.5"
|
||||||
:type 'boolean)
|
:type 'boolean)
|
||||||
|
|
||||||
(defface erc-timestamp-face '((t :weight bold :foreground "green"))
|
(defface erc-timestamp-face '((t :weight bold :foreground "green"))
|
||||||
|
@ -104,7 +104,7 @@
|
|||||||
|
|
||||||
(defgroup erc-lurker nil
|
(defgroup erc-lurker nil
|
||||||
"Hide specified message types sent by lurkers"
|
"Hide specified message types sent by lurkers"
|
||||||
:version "24.3"
|
:version "24.5"
|
||||||
:group 'erc-ignore)
|
:group 'erc-ignore)
|
||||||
|
|
||||||
(defgroup erc-query nil
|
(defgroup erc-query nil
|
||||||
@ -5291,7 +5291,7 @@ into the ERC buffer, that text is not sent to the IRC server.
|
|||||||
If the value is nil, `erc-send-current-line' always considers any
|
If the value is nil, `erc-send-current-line' always considers any
|
||||||
submitted line to be intentional."
|
submitted line to be intentional."
|
||||||
:group 'erc
|
:group 'erc
|
||||||
:version "24.4"
|
:version "24.5"
|
||||||
:type '(choice number (other :tag "disabled" nil)))
|
:type '(choice number (other :tag "disabled" nil)))
|
||||||
|
|
||||||
(defun erc-send-current-line ()
|
(defun erc-send-current-line ()
|
||||||
|
@ -1286,6 +1286,7 @@ the `--debug-init' option to view a complete error backtrace."
|
|||||||
(let (warned)
|
(let (warned)
|
||||||
(dolist (dir load-path)
|
(dolist (dir load-path)
|
||||||
(and (not warned)
|
(and (not warned)
|
||||||
|
(stringp dir)
|
||||||
(string-equal (file-name-as-directory (expand-file-name dir))
|
(string-equal (file-name-as-directory (expand-file-name dir))
|
||||||
(expand-file-name user-emacs-directory))
|
(expand-file-name user-emacs-directory))
|
||||||
(setq warned t)
|
(setq warned t)
|
||||||
|
@ -1,3 +1,17 @@
|
|||||||
|
2014-11-10 Eli Zaretskii <eliz@gnu.org>
|
||||||
|
|
||||||
|
* fileio.c (Finsert_file_contents): Invalidate buffer caches also
|
||||||
|
when the inserted text does not need decoding. (Bug#18982)
|
||||||
|
|
||||||
|
2014-11-10 Jan Djärv <jan.h.d@swipnet.se>
|
||||||
|
|
||||||
|
* nsterm.h (EmacsScroller): judge returns bool.
|
||||||
|
|
||||||
|
* nsterm.m (ns_set_vertical_scroll_bar): Release bar.
|
||||||
|
(ns_judge_scroll_bars): Only set removed if judge returns true.
|
||||||
|
(judge): Returns bool == condemned. Remove self from window.
|
||||||
|
(setPosition:portion:whole:): Remove raise SIGIO (Bug#18757).
|
||||||
|
|
||||||
2014-11-10 Stefan Monnier <monnier@iro.umontreal.ca>
|
2014-11-10 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||||
|
|
||||||
* keyboard.c (command_loop_1): Record this-command in recent-keys.
|
* keyboard.c (command_loop_1): Record this-command in recent-keys.
|
||||||
|
@ -4329,8 +4329,11 @@ by calling `format-decode', which see. */)
|
|||||||
coding_system = CODING_ID_NAME (coding.id);
|
coding_system = CODING_ID_NAME (coding.id);
|
||||||
}
|
}
|
||||||
else if (inserted > 0)
|
else if (inserted > 0)
|
||||||
adjust_after_insert (PT, PT_BYTE, PT + inserted, PT_BYTE + inserted,
|
{
|
||||||
inserted);
|
invalidate_buffer_caches (current_buffer, PT, PT + inserted);
|
||||||
|
adjust_after_insert (PT, PT_BYTE, PT + inserted, PT_BYTE + inserted,
|
||||||
|
inserted);
|
||||||
|
}
|
||||||
|
|
||||||
/* Call after-change hooks for the inserted text, aside from the case
|
/* Call after-change hooks for the inserted text, aside from the case
|
||||||
of normal visiting (not with REPLACE), which is done in a new buffer
|
of normal visiting (not with REPLACE), which is done in a new buffer
|
||||||
|
@ -396,7 +396,7 @@ typedef float EmacsCGFloat;
|
|||||||
- repeatScroll: (NSTimer *)sender;
|
- repeatScroll: (NSTimer *)sender;
|
||||||
- condemn;
|
- condemn;
|
||||||
- reprieve;
|
- reprieve;
|
||||||
- judge;
|
- (bool)judge;
|
||||||
@end
|
@end
|
||||||
|
|
||||||
|
|
||||||
|
18
src/nsterm.m
18
src/nsterm.m
@ -3803,6 +3803,7 @@ overwriting cursor (usually when cursor on a tab) */
|
|||||||
bar = XNS_SCROLL_BAR (window->vertical_scroll_bar);
|
bar = XNS_SCROLL_BAR (window->vertical_scroll_bar);
|
||||||
[bar removeFromSuperview];
|
[bar removeFromSuperview];
|
||||||
wset_vertical_scroll_bar (window, Qnil);
|
wset_vertical_scroll_bar (window, Qnil);
|
||||||
|
[bar release];
|
||||||
}
|
}
|
||||||
ns_clear_frame_area (f, left, top, width, height);
|
ns_clear_frame_area (f, left, top, width, height);
|
||||||
unblock_input ();
|
unblock_input ();
|
||||||
@ -3996,8 +3997,8 @@ overwriting cursor (usually when cursor on a tab) */
|
|||||||
{
|
{
|
||||||
view = [subviews objectAtIndex: i];
|
view = [subviews objectAtIndex: i];
|
||||||
if (![view isKindOfClass: [EmacsScroller class]]) continue;
|
if (![view isKindOfClass: [EmacsScroller class]]) continue;
|
||||||
[view judge];
|
if ([view judge])
|
||||||
removed = YES;
|
removed = YES;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (removed)
|
if (removed)
|
||||||
@ -7227,9 +7228,10 @@ - (void)dealloc
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
- judge
|
-(bool)judge
|
||||||
{
|
{
|
||||||
NSTRACE (judge);
|
NSTRACE (judge);
|
||||||
|
bool ret = condemned;
|
||||||
if (condemned)
|
if (condemned)
|
||||||
{
|
{
|
||||||
EmacsView *view;
|
EmacsView *view;
|
||||||
@ -7238,11 +7240,14 @@ - (void)dealloc
|
|||||||
view = (EmacsView *)FRAME_NS_VIEW (frame);
|
view = (EmacsView *)FRAME_NS_VIEW (frame);
|
||||||
if (view != nil)
|
if (view != nil)
|
||||||
view->scrollbarsNeedingUpdate++;
|
view->scrollbarsNeedingUpdate++;
|
||||||
|
if (window)
|
||||||
|
wset_vertical_scroll_bar (window, Qnil);
|
||||||
|
window = 0;
|
||||||
[self removeFromSuperview];
|
[self removeFromSuperview];
|
||||||
[self release];
|
[self release];
|
||||||
unblock_input ();
|
unblock_input ();
|
||||||
}
|
}
|
||||||
return self;
|
return ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
@ -7297,11 +7302,6 @@ - (int) checkSamePosition: (int) position portion: (int) portion
|
|||||||
#endif
|
#endif
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Events may come here even if the event loop is not running.
|
|
||||||
If we don't enter the event loop, the scroll bar will not update.
|
|
||||||
So send SIGIO to ourselves. */
|
|
||||||
if (apploopnr == 0) raise (SIGIO);
|
|
||||||
|
|
||||||
return self;
|
return self;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user