]> git.eshelyaron.com Git - emacs.git/commitdiff
(ucs-unify-8859, ucs-fragment-8859): Use unify-8859-on-decoding-mode.
authorStefan Monnier <monnier@iro.umontreal.ca>
Sun, 17 Mar 2002 20:50:48 +0000 (20:50 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Sun, 17 Mar 2002 20:50:48 +0000 (20:50 +0000)
(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
lisp/international/ucs-tables.el

index c96fa75048caecca347e206487bc9f2e14ed9692..fbaa35baefb5fdad3c62acc730ae505573975e10 100644 (file)
@@ -1,3 +1,13 @@
+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
 
        * 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.
        * 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\e,Bm\e(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.
        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>
        (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)
 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.
 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>
 
        (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
index 81f059e9ac22f87646b60b4979ba723be0e1207b..245d624e21431dc0a6e90d1deb44088d6d694ef3 100644 (file)
@@ -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 <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.