From 2154a29765fbd87edf495b1db960e8a90d1be9bc Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 17 Mar 2002 20:50:48 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 72 +++++++++++++++++++++++--------- lisp/international/ucs-tables.el | 25 +++++------ 2 files changed, 65 insertions(+), 32 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c96fa75048c..fbaa35baefb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2002-03-17 Stefan Monnier + + * 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 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 + + * files.el (load-completion): New function. + (load-library): Use it. + 2002-03-15 Pavel Jan,Bm(Bk * calendar/cal-french.el (calendar-goto-french-date): Fix prompt @@ -57,8 +71,8 @@ 2002-03-15 Eli Zaretskii - * 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 * 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 @@ -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 + + * 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` * progmodes/etags.el (tag-exact-file-name-match-p) @@ -132,10 +166,9 @@ 2002-03-12 Gerd Moellmann * 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` * 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 @@ -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 diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el index 81f059e9ac2..245d624e214 100644 --- a/lisp/international/ucs-tables.el +++ b/lisp/international/ucs-tables.el @@ -1,6 +1,6 @@ ;;; 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 ;; 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. -- 2.39.2