Commit 2154a297 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(ucs-unify-8859, ucs-fragment-8859): Use unify-8859-on-decoding-mode.

(unify-8859-on-decoding-mode): Also set translation-table-for-input.
(ucs-insert): Give an error if the unicode char can't be created.
parent 1f3d429d
2002-03-17 Stefan Monnier <monnier@cs.yale.edu>
* international/ucs-tables.el (ucs-unify-8859, ucs-fragment-8859):
Use unify-8859-on-decoding-mode.
(unify-8859-on-decoding-mode): Also set translation-table-for-input.
(ucs-insert): Give an error if the unicode char can't be created.
* pcvs-parse.el (cvs-parse-table): Be a bit more lenient.
(cvs-parse-status): Handle the "used to have a conflict" marker.
2002-03-17 Kim F. Storm <storm@cua.dk>
The following changes are related to the enhanced network process
......@@ -5,12 +15,11 @@
* simple.el: Update copyright.
(clone-process): Use make-network-process to clone network
processes. Get command list via (process-contact ... t).
processes. Get command list via (process-contact ... t).
Use set-process-query-on-exit-flag and process-query-on-exit-flag
instead of process-kill-without-query.
(open-network-stream): Replaces C-version from process.c.
(open-network-stream-nowait, open-network-stream-server): New
functions.
(open-network-stream-nowait, open-network-stream-server): New funs.
(process-kill-without-query): Replaces C-version from process.c.
* files.el: Update copyright.
......@@ -50,6 +59,11 @@
* bindings.el (mode-line-mule-info): In computing help-echo prop,
avoid using save-window-excursion. And compile the function.
2002-03-15 Stefan Monnier <monnier@cs.yale.edu>
* files.el (load-completion): New function.
(load-library): Use it.
2002-03-15 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
* calendar/cal-french.el (calendar-goto-french-date): Fix prompt
......@@ -57,8 +71,8 @@
2002-03-15 Eli Zaretskii <eliz@is.elta.co.il>
* textmodes/po.el (po-find-file-coding-system-guts): Use
with-temp-buffer instead of po-with-temp-buffer.
* textmodes/po.el (po-find-file-coding-system-guts):
Use with-temp-buffer instead of po-with-temp-buffer.
* international/mule-conf.el (file-coding-system-alist): Add an
association for PO files.
......@@ -77,9 +91,9 @@
2002-03-14 Richard M. Stallman <rms@gnu.org>
* textmodes/picture.el (picture-insert)
(picture-clear-column, picture-draw-rectangle):
(picture-clear-column, picture-draw-rectangle):
Use move-to-column, not move-to-column-force.
* dired.el (dired-readin): Clear out undo list.
(dired-fun-in-all-buffers): Definition moved from dired-aux.el.
(dired-delete-entry): New function.
......@@ -87,12 +101,12 @@
and dired-delete-entry, to update this buffer (and others).
* dired-aux.el (dired-fun-in-all-buffers): Moved to dired.el.
* facemenu.el (facemenu-add-new-face):
Pass region args to facemenu-set-face, when there is a region.
(facemenu-set-foreground, facemenu-set-background)
(facemenu-add-face): Doc fixes.
* progmodes/cperl-mode.el (cperl-outline-regexp): Move definition up.
2002-03-14 Miles Bader <miles@gnu.org>
......@@ -105,10 +119,30 @@
(rlogin): Don't install the `rlogin-carriage-filter' filter, as
comint removes carriage returns itself now.
* rfn-eshadow.el (rfn-eshadow-update-overlay): Bind
`inhibit-point-motion-hooks' to t while messing around, to avoid
* rfn-eshadow.el (rfn-eshadow-update-overlay):
Bind `inhibit-point-motion-hooks' to t while messing around, to avoid
getting hosed by our own intangible property.
2002-03-13 Stefan Monnier <monnier@cs.yale.edu>
* progmodes/fortran.el (fortran-mode): Set comment-padding to "$$$".
Add fortran-comment-line-start-skip to comment-start-skip.
(fortran-comment-indent): Keep whole-line comments in column 0.
(fortran-find-comment-start-skip): New arg `all'.
If ALL is nil, make sure we only match comment-start-skip if we
can't match fortran-comment-line-start-skip.
Fix bug that made it return t but without moving point when
matching '!'! (a false-comment followed by a real comment).
(fortran-indent-comment): Use new `all' argument above.
Be careful not to add an incorrect comment-starter like "C"
in comment-column.
(fortran-split-line): When splitting a comment, reuse the comment
starter from the current line rather than fortran-comment-line-start.
(fortran-indent-line, fortran-auto-fill): Simplify thanks to the
cleaner behavior of fortran-find-comment-start-skip.
(fortran-fill): Don't be confused by ! inside a comment.
(fortran-break-line): Minor cleanup and simplification.
2002-03-13 Francesco Potorti` <pot@gnu.org>
* progmodes/etags.el (tag-exact-file-name-match-p)
......@@ -132,10 +166,9 @@
2002-03-12 Gerd Moellmann <gerd@gnu.org>
* emacs-lisp/cl-indent.el (lisp-loop-keyword-indentation)
(lisp-loop-forms-indentation, lisp-simple-loop-indentation): New
user options.
(extended-loop-p, common-lisp-loop-part-indentation): New
functions.
(lisp-loop-forms-indentation, lisp-simple-loop-indentation):
New user options.
(extended-loop-p, common-lisp-loop-part-indentation): New functions.
(common-lisp-indent-function-1): Renamed from
common-lisp-indent-function.
(common-lisp-indent-function): Handle loop forms specially.
......@@ -145,9 +178,9 @@
2002-03-12 Francesco Potorti` <pot@gnu.org>
* progmodes/etags.el (tag-exact-file-name-match-p)
(tag-file-name-match-p, tag-partial-file-name-match-p): Assume
that the header of a tags section has either a number or nothing
after the last comma.
(tag-file-name-match-p, tag-partial-file-name-match-p):
Assume that the header of a tags section has either a number
or nothing after the last comma.
2002-03-11 Richard M. Stallman <rms@gnu.org>
......@@ -228,8 +261,7 @@
(mpuz-trivial-face, mpuz-text-face, mpuz-solve-when-trivial)
(mpuz-allow-double-multiplicator): New options for nicer look and
new features.
(mpuz-put-number-on-board, mpuz-paint-number, mpuz-solve): New
functions.
(mpuz-put-number-on-board, mpuz-paint-number, mpuz-solve): New funs.
(mpuz-check-all-solved, mpuz-random-puzzle)
(mpuz-paint-statistics, mpuz-paint-digit, mpuz-close-game)
(mpuz-show-solution): Functions streamlined and removed french
......
;;; ucs-tables.el --- translation to, from and via Unicode -*- coding: iso-2022-7bit -*-
;; Copyright (C) 2001 Free Software Foundation, Inc.
;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
;; Author: Dave Love <fx@gnu.org>
;; Keywords: i18n
......@@ -25,7 +25,7 @@
;;; Commentary:
;; This file provides tables mapping between Unicode numbers and
;; emacs-mule characters from the iso-8859 charsets (and others). It
;; emacs-mule characters from the iso8859 charsets (and others). It
;; also provides some auxiliary functions.
;; These tables are used to construct other mappings between the Mule
......@@ -1159,8 +1159,7 @@ everything on input operations."
(interactive "P")
(unless encode-only
;; Unify 8859 on decoding. (Non-CCL coding systems only.)
(set-char-table-parent standard-translation-table-for-decode
ucs-mule-8859-to-mule-unicode))
(unify-8859-on-decoding-mode 1))
;; Adjust the 8859 coding systems to fragment the unified characters
;; on encoding.
(dolist (n '(1 2 3 4 5 7 8 9 14 15))
......@@ -1236,7 +1235,7 @@ unification on input operations."
;; Maybe fix decoding.
(unless encode-only
;; Unify 8859 on decoding. (Non-CCL coding systems only.)
(set-char-table-parent standard-translation-table-for-decode nil))
(unify-8859-on-decoding-mode -1))
;; Fix encoding. For each charset, remove the entries in
;; `char-coding-system-table' added to its safe-chars table (as its
;; parent).
......@@ -1295,24 +1294,26 @@ built-in ISO 8859 charsets are unified by mapping them into the
`iso-latin-1' and `mule-unicode-0100-24ff' charsets.
This sets the parent of `standard-translation-table-for-decode'.
Also sets `translation-table-for-input' globally, so that Quail input
methods produce unified characters.
See also command `unify-8859-on-encoding-mode'."
:group 'mule
:global t
:version 21.3 ; who knows...?
:init-value nil
(if unify-8859-on-decoding-mode
(set-char-table-parent standard-translation-table-for-decode
ucs-mule-8859-to-mule-unicode)
(set-char-table-parent standard-translation-table-for-decode nil)))
(let ((table (if unify-8859-on-decoding-mode ucs-mule-8859-to-mule-unicode)))
(set-char-table-parent standard-translation-table-for-decode table)
(setq-default translation-table-for-input table)))
(defun ucs-insert (arg)
"Insert the Emacs character representation of the given Unicode.
Interactively, prompts for a hex string giving the code."
(interactive "sUnicode (hex): ")
(insert (decode-char 'ucs (if (integerp arg)
arg
(string-to-number arg 16)))))
(insert (or (decode-char 'ucs (if (integerp arg)
arg
(string-to-number arg 16)))
(error "Unknown Unicode character"))))
;;; Dealing with non-8859 character sets.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment