procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge from emacs--rel--22

Browse source 
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-927
This commit is contained in:
Miles Bader 2007-11-11 00:03:33 +00:00
commit a457417ee5
5 changed files with 22 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -1,3 +1,13 @@
2007-11-10 Jason Rumney <jasonr@gnu.org>
* w32-fns.el: Sync charset names with setup-default-fontset.
Append "-1" where second part missing.
2007-11-11 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
* faces.el (face-normalize-spec): Remove function.
(frame-set-background-mode): Undo last change.
2007-11-10 Juri Linkov <juri@jurta.org>
* isearch.el (isearch-mode-end-hook, isearch-mode-end-hook-quit):

25
lisp/faces.el
View file

@ -1516,28 +1516,6 @@ If there is neither a user setting nor a default for FACE, return nil."
(get face 'saved-face)
(face-default-spec face)))
(defsubst face-normalize-spec (spec)
"Return a normalized face-spec of SPEC."
(let (normalized-spec)
(while spec
(let ((attribute (car spec))
(value (car (cdr spec))))
;; Support some old-style attribute names and values.
(case attribute
(:bold (setq attribute :weight value (if value 'bold 'normal)))
(:italic (setq attribute :slant value (if value 'italic 'normal)))
((:foreground :background)
;; Compatibility with 20.x. Some bogus face specs seem to
;; exist containing things like `:foreground nil'.
(if (null value) (setq value 'unspecified)))
(t (unless (assq attribute face-x-resources)
(setq attribute nil))))
(when attribute
(push attribute normalized-spec)
(push value normalized-spec)))
(setq spec (cdr (cdr spec))))
(nreverse normalized-spec)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Frame-type independent color support.
@ -1819,8 +1797,7 @@ according to the `background-mode' and `display-type' frame parameters."
;; be unmodified, so we can avoid consing in the common case.
(dolist (face (face-list))
(when (not (face-spec-match-p face
(face-normalize-spec
(face-user-default-spec face))
(face-user-default-spec face)
(selected-frame)))
(push face locally-modified-faces)))
;; Now change to the new frame parameters

13
lisp/w32-fns.el
View file

@ -382,9 +382,9 @@ bit output with no translation."
(w32-add-charset-info "jisx0201-latin" 'w32-charset-shiftjis 932)
(w32-add-charset-info "jisx0201-katakana" 'w32-charset-shiftjis 932)
(w32-add-charset-info "jisx0208-sjis" 'w32-charset-shiftjis 932)
(w32-add-charset-info "ksc5601.1987" 'w32-charset-hangeul 949)
(w32-add-charset-info "big5" 'w32-charset-chinesebig5 950)
(w32-add-charset-info "gb2312" 'w32-charset-gb2312 936)
(w32-add-charset-info "ksc5601.1989-1" 'w32-charset-hangeul 949)
(w32-add-charset-info "big5-1" 'w32-charset-chinesebig5 950)
(w32-add-charset-info "gb2312.1980-1" 'w32-charset-gb2312 936)
(w32-add-charset-info "ms-symbol" 'w32-charset-symbol nil)
(w32-add-charset-info "ms-oem" 'w32-charset-oem 437)
(w32-add-charset-info "ms-oemlatin" 'w32-charset-oem 850)
@ -400,12 +400,11 @@ bit output with no translation."
(w32-add-charset-info "iso8859-13" 'w32-charset-baltic 1257)
(w32-add-charset-info "koi8-r" 'w32-charset-russian 20866)
(w32-add-charset-info "iso8859-5" 'w32-charset-russian 28595)
(w32-add-charset-info "tis620" 'w32-charset-thai 874)
(w32-add-charset-info "ksc5601.1992" 'w32-charset-johab 1361)
(w32-add-charset-info "mac" 'w32-charset-mac nil)))
(w32-add-charset-info "tis620-1" 'w32-charset-thai 874)
(w32-add-charset-info "ksc5601.1992-1" 'w32-charset-johab 1361)
(w32-add-charset-info "mac-latin" 'w32-charset-mac nil)))
(if (boundp 'w32-unicode-charset-defined)
(progn
(w32-add-charset-info "unicode" 'w32-charset-unicode t)
(w32-add-charset-info "iso10646-1" 'w32-charset-unicode t))
;; If unicode windows charset is not defined, use ansi fonts.
(w32-add-charset-info "iso10646-1" 'w32-charset-ansi t))

4
src/ChangeLog
View file

@ -1,3 +1,7 @@
2007-11-10 Stefan Monnier <monnier@iro.umontreal.ca>
* xdisp.c (load_overlay_strings): Fix copy&paste typo.
2007-11-09 Jason Rumney <jasonr@gnu.org>
* s/ms-w32.c (USE_TOOLKIT_SCROLL_BARS): Define.

2
src/xdisp.c
View file

@ -4906,7 +4906,7 @@ load_overlay_strings (it, charpos)
j = it->current.overlay_string_index;
while (i < OVERLAY_STRING_CHUNK_SIZE && j < n)
{
it->overlay_strings[i++] = entries[j++].string;
it->overlay_strings[i] = entries[j].string;
it->string_overlays[i++] = entries[j++].overlay;
}