Merged in changes from CVS HEAD

Patches applied:

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-104
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-105
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-106
   Update from CVS


git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-87

11 files changed, 115 insertions, 67 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f5e51f9a093..bf4e852c494 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,35 @@
+2004-02-19  Simon Josefsson  <jas@extundo.com>
+
+        * play/morse.el: Fix typo.
+        (morse-code): Add @.
+
+2004-02-19  Glenn Morris  <gmorris@ast.cam.ac.uk>
+
+        * calendar/appt.el (appt-display-format): Change default to
+        'ignore, for backwards compatability.
+        (appt-display-message): If appt-display-format is 'ignore,
+        respect old vars appt-msg-window and appt-visible.
+        (appt-activate): Don't depend on return value of cancel-timer.
+
+        * calendar/calendar.el (calendar-holidays): Doc fix.
+
+        * calendar/cal-coptic.el (coptic-prompt-for-date):
+        Use assoc-string instead of assoc-ignore-case.
+        * calendar/cal-french.el (calendar-goto-french-date): Ditto.
+        * calendar/cal-hebrew.el (calendar-goto-hebrew-date)
+        (mark-hebrew-diary-entries, list-yahrzeit-dates): Ditto.
+        * calendar/cal-islam.el (calendar-goto-islamic-date)
+        (mark-islamic-diary-entries): Ditto.
+        * calendar/cal-julian.el (calendar-goto-julian-date): Ditto.
+        * calendar/cal-mayan.el (calendar-read-mayan-haab-date)
+        (calendar-read-mayan-tzolkin-date): Ditto.
+        * calendar/calendar.el (calendar-read-date): Ditto.
+        * calendar/diary-lib.el (mark-diary-entries): Ditto.
+
 2004-02-18  Markus Rost  <rost@mathematik.uni-bielefeld.de>
 
-        * progmodes/executable.el (executable-command-find-posix-p):  Fix
-        choice of the directory.
+        * progmodes/executable.el (executable-command-find-posix-p):
+        Fix choice of the directory.
 
 2004-02-17  Luc Teirlinck  <teirllm@auburn.edu>
 
@@ -55,11 +83,11 @@
 
         * rmail-spam-filter.el: (vm-use-spam-filter)
         (rsf-min-region-length-added-to-spam-list): New variables.
-        (rsf-bbdb-auto-delete-spam-bbdb-entries): Renamed from
+        (rsf-bbdb-auto-delete-spam-bbdb-entries): Rename from
         rmail-bbdb-auto-delete-spam-entries.  Added cc: to recipients for
         spam testing.  Don't delete spam message if automatic deletion
         after output via variable rmail-delete-after-output is turned on.
-        (rsf-bbdb-dont-create-entries-for-deleted-messages): Renamed from
+        (rsf-bbdb-dont-create-entries-for-deleted-messages): Rename from
         rsf-bbdb-dont-create-entries-for-spam.
         (check-field): New function, extracted from code in
         rmail-spam-filter to ease addition of header fields like
@@ -69,11 +97,10 @@
         (rmail-spam-filter): Replace repeated test code for header fields
         by calls to check-field; change the call to
         rmail-output-to-rmail-file such that rmail-current-message stays
-        the same to avoid wrong deletion of unseen
-        flags.
+        the same to avoid wrong deletion of unseen flags.
         (rsf-add-contents-type): New function to convert old format
         of rmail-spam-definitions-alist into new one.
-        Changed prefixes of all variables and functions from
+        Change prefixes of all variables and functions from
         rmail-spam-filter- or spam-filter- or rmail-spam- to rsf-.
 
 2004-02-16  Eli Zaretskii  <eliz@elta.co.il>
@@ -97,8 +124,8 @@
 2004-02-16  Eli Zaretskii  <eliz@elta.co.il>
 
         * emacs-lisp/rx.el (rx-check, rx-check-any, rx-check-not)
-        (rx-repeat, rx-check-backref, rx-syntax, rx-to-string): Use
-        lower-case "rx" in all error message.
+        (rx-repeat, rx-check-backref, rx-syntax, rx-to-string):
+        Use lower-case "rx" in all error message.
 
 2004-02-16  Dave Love  <fx@gnu.org>
 
@@ -125,7 +152,7 @@
         * autorevert.el (auto-revert-active-p, auto-revert-list-diff)
         (auto-revert-dired-file-list, auto-revert-dired-changed-p)
         (auto-revert-handler, auto-revert-active-p): New functions.
-        (auto-revert-buffers): Moved revert logic to `auto-revert-handler'
+        (auto-revert-buffers): Move revert logic to `auto-revert-handler'
         and `auto-revert-active-p'.
         (eval-when-compile): Defvar dired-directory and vc-mode.
         (auto-revert-vc-cvs-file-version, auto-revert-vc-buffer-p)
@@ -188,7 +215,7 @@
 
 2004-02-14  Martin Stjernholm  <bug-cc-mode@gnu.org>
 
-        * Makefile.in: Fixed the CC Mode recompile kludge so it works
+        * Makefile.in: Fix the CC Mode recompile kludge so it works
         when building in a different directory.
 
 2004-02-13  Luc Teirlinck  <teirllm@auburn.edu>
@@ -197,6 +224,17 @@
 
 2004-02-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+        * diff.el: Don't use compile any more, use diff-mode instead.
+        (diff-regexp-alist, diff-old-file, diff-new-file)
+        (diff-parse-differences, diff-process-setup): Remove.
+        (diff-sentinel): New fun.
+        (diff): Use it.  Run the process ourselves.
+        Use diff-mode for the rest of the processing.
+
+        * diff.el (diff): Simplify code handling `switch'.
+
+2004-02-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
         * pcvs-defs.el (cvs-menu): Add `tag'.
 
 2004-02-11  Luc Teirlinck  <teirllm@auburn.edu>
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index f6e33aeefe0..d002b6fd212 100644
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -43,7 +43,7 @@
 ;;; documentation of the function `appt-check' is required.
 ;;; Relevant customizable variables are also listed in the
 ;;; documentation of that function.
-;;; 
+;;;
 ;;; Today's appointment list is initialized from the diary when this
 ;;; package is activated. Additionally, the appointments list is
 ;;; recreated automatically at 12:01am for those who do not logout
@@ -121,15 +121,16 @@ If non-nil, this variable overrides `appt-visible'."
 (make-obsolete-variable 'appt-msg-window 'appt-display-format "21.4")
 
 ;; TODO - add popup.
-(defcustom appt-display-format (cond (appt-msg-window 'window)
-                                     (appt-visible 'echo)
-                                     (t nil))
+(defcustom appt-display-format 'ignore
   "How appointment reminders should be displayed.
 The options are:
    window - use a separate window
    echo   - use the echo area
    nil    - no visible reminder.
-See also `appt-audible' and `appt-display-mode-line'."
+See also `appt-audible' and `appt-display-mode-line'.
+
+The default value is 'ignore, which means to fall back on the value
+of the (obsolete) variables `appt-msg-window' and `appt-visible'."
   :type '(choice
           (const :tag "Separate window" window)
           (const :tag "Echo-area" echo)
@@ -222,17 +223,24 @@ If this is non-nil, appointment checking is active.")
 The string STRING describes the appointment, due in integer MINS minutes.
 The format of the visible reminder is controlled by `appt-display-format'.
 The variable `appt-audible' controls the audible reminder."
-  (cond ((eq appt-display-format 'window)
-         (funcall appt-disp-window-function
-                  (number-to-string mins)
-                  (format-time-string "%a %b %e " (current-time))
-                  string)
-         (run-at-time (format "%d sec" appt-display-duration)
-                      nil
-                      appt-delete-window-function))
-        ((eq appt-display-format 'echo)
-         (message "%s" string)))
-  (if appt-audible (beep 1)))
+  ;; let binding for backwards compatability. Remove when obsolete
+  ;; vars appt-msg-window and appt-visible are dropped.
+  (let ((appt-display-format
+         (if (eq appt-display-format 'ignore)
+             (cond (appt-msg-window 'window)
+                   (appt-visible 'echo))
+           appt-display-format)))
+    (cond ((eq appt-display-format 'window)
+           (funcall appt-disp-window-function
+                    (number-to-string mins)
+                    (format-time-string "%a %b %e " (current-time))
+                    string)
+           (run-at-time (format "%d sec" appt-display-duration)
+                        nil
+                        appt-delete-window-function))
+          ((eq appt-display-format 'echo)
+           (message "%s" string)))
+    (if appt-audible (beep 1))))
 
 
 (defun appt-check (&optional force)
@@ -648,9 +656,9 @@ ARG is positive, otherwise off."
     (remove-hook 'write-file-functions 'appt-update-list)
     (or global-mode-string (setq global-mode-string '("")))
     (delq 'appt-mode-string global-mode-string)
-    (and appt-timer
-         (cancel-timer appt-timer)
-         (setq appt-timer nil))
+    (when appt-timer
+      (cancel-timer appt-timer)
+      (setq appt-timer nil))
     (when appt-active
       (add-hook 'write-file-functions 'appt-update-list)
       (setq appt-timer (run-at-time t 60 'appt-check)
diff --git a/lisp/calendar/cal-coptic.el b/lisp/calendar/cal-coptic.el
index f33e80d6991..df1201a23c4 100644
--- a/lisp/calendar/cal-coptic.el
+++ b/lisp/calendar/cal-coptic.el
@@ -151,14 +151,14 @@ Echo Coptic date unless NOECHO is t."
                   (calendar-coptic-from-absolute
                    (calendar-absolute-from-gregorian today))))))
          (completion-ignore-case t)
-         (month (cdr (assoc-ignore-case
+         (month (cdr (assoc-string
                       (completing-read
                        (format "%s calendar month name: " coptic-name)
                        (mapcar 'list
                                (append coptic-calendar-month-name-array nil))
                        nil t)
                       (calendar-make-alist coptic-calendar-month-name-array
-                                           1))))
+                                           1) t)))
          (last (coptic-calendar-last-day-of-month month year))
          (day (calendar-read
                (format "%s calendar day (1-%d): " coptic-name last)
diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el
index 7c855e4127a..d988b008f53 100644
--- a/lisp/calendar/cal-french.el
+++ b/lisp/calendar/cal-french.el
@@ -228,12 +228,12 @@ Echo French Revolutionary date unless NOECHO is t."
                                       (concat "Jour " x))
                                    special-days))))))))
             (completion-ignore-case t)
-            (month (cdr (assoc-ignore-case
+            (month (cdr (assoc-string
                          (completing-read
                           "Mois ou Sansculottide: "
                           month-list
                           nil t)
-                         (calendar-make-alist month-list 1 'car))))
+                         (calendar-make-alist month-list 1 'car) t)))
             (day (if (> month 12)
                      (- month 12)
                    (calendar-read
diff --git a/lisp/calendar/cal-hebrew.el b/lisp/calendar/cal-hebrew.el
index acdac6ce5c6..776868159be 100644
--- a/lisp/calendar/cal-hebrew.el
+++ b/lisp/calendar/cal-hebrew.el
@@ -236,17 +236,17 @@ Driven by the variable `calendar-date-display-form'."
                            calendar-hebrew-month-name-array-leap-year
                          calendar-hebrew-month-name-array-common-year))
           (completion-ignore-case t)
-          (month (cdr (assoc-ignore-case
+          (month (cdr (assoc-string
                        (completing-read
                         "Hebrew calendar month name: "
                         (mapcar 'list (append month-array nil))
                         (if (= year 3761)
                             '(lambda (x)
                                (let ((m (cdr
-                                         (assoc-ignore-case
+                                         (assoc-string
                                           (car x)
-                                          (calendar-make-alist
-                                           month-array)))))
+                                          (calendar-make-alist month-array)
+                                          t))))
                                  (< 0
                                     (calendar-absolute-from-hebrew
                                      (list m
@@ -254,7 +254,7 @@ Driven by the variable `calendar-date-display-form'."
                                             m year)
                                            year))))))
                         t)
-                       (calendar-make-alist month-array 1))))
+                       (calendar-make-alist month-array 1) t)))
           (last (hebrew-calendar-last-day-of-month month year))
           (first (if (and (= year 3761) (= month 10))
                      18 1))
@@ -753,18 +753,18 @@ is provided for use as part of the nongregorian-diary-marking-hook."
                          (string-to-int y-str)))))
             (if dd-name
                 (mark-calendar-days-named
-                 (cdr (assoc-ignore-case dd-name
+                 (cdr (assoc-string dd-name
                                          (calendar-make-alist
                                           calendar-day-name-array
-                                          0 nil calendar-day-abbrev-array))))
+                                          0 nil calendar-day-abbrev-array) t)))
               (if mm-name
                   (setq mm
                         (if (string-equal mm-name "*") 0
                           (cdr
-                           (assoc-ignore-case
+                           (assoc-string
                             mm-name
                             (calendar-make-alist
-                             calendar-hebrew-month-name-array-leap-year))))))
+                             calendar-hebrew-month-name-array-leap-year) t)))))
               (mark-hebrew-calendar-date-pattern mm dd yy)))))
       (setq d (cdr d)))))
 
@@ -839,12 +839,12 @@ from the cursor position."
                            (int-to-string (extract-calendar-year today))))
                     (month-array calendar-month-name-array)
                     (completion-ignore-case t)
-                    (month (cdr (assoc-ignore-case
+                    (month (cdr (assoc-string
                                  (completing-read
                                   "Month of death (name): "
                                   (mapcar 'list (append month-array nil))
                                   nil t)
-                                 (calendar-make-alist month-array 1))))
+                                 (calendar-make-alist month-array 1) t)))
                     (last (calendar-last-day-of-month month year))
                     (day (calendar-read
                           (format "Day of death (1-%d): " last)
diff --git a/lisp/calendar/cal-islam.el b/lisp/calendar/cal-islam.el
index 482b77d74d9..8dcf5c29b1f 100644
--- a/lisp/calendar/cal-islam.el
+++ b/lisp/calendar/cal-islam.el
@@ -154,12 +154,12 @@ Driven by the variable `calendar-date-display-form'."
                     (calendar-absolute-from-gregorian today))))))
           (month-array calendar-islamic-month-name-array)
           (completion-ignore-case t)
-          (month (cdr (assoc-ignore-case
+          (month (cdr (assoc-string
                         (completing-read
                          "Islamic calendar month name: "
                          (mapcar 'list (append month-array nil))
                          nil t)
-                       (calendar-make-alist month-array 1))))
+                       (calendar-make-alist month-array 1) t)))
           (last (islamic-calendar-last-day-of-month month year))
           (day (calendar-read
                 (format "Islamic calendar day (1-%d): " last)
@@ -372,16 +372,16 @@ provided for use as part of the nongregorian-diary-marking-hook."
                          (string-to-int y-str)))))
             (if dd-name
                 (mark-calendar-days-named
-                 (cdr (assoc-ignore-case dd-name
+                 (cdr (assoc-string dd-name
                                          (calendar-make-alist
                                           calendar-day-name-array
-                                          0 nil calendar-day-abbrev-array))))
+                                          0 nil calendar-day-abbrev-array) t)))
               (if mm-name
                   (setq mm (if (string-equal mm-name "*") 0
-                             (cdr (assoc-ignore-case
+                             (cdr (assoc-string
                                    mm-name
                                    (calendar-make-alist
-                                    calendar-islamic-month-name-array))))))
+                                    calendar-islamic-month-name-array) t)))))
               (mark-islamic-calendar-date-pattern mm dd yy)))))
       (setq d (cdr d)))))
 
diff --git a/lisp/calendar/cal-julian.el b/lisp/calendar/cal-julian.el
index ac422602dc4..67fb8515b24 100644
--- a/lisp/calendar/cal-julian.el
+++ b/lisp/calendar/cal-julian.el
@@ -115,12 +115,12 @@ Driven by the variable `calendar-date-display-form'."
                      today))))))
           (month-array calendar-month-name-array)
           (completion-ignore-case t)
-          (month (cdr (assoc-ignore-case
+          (month (cdr (assoc-string
                         (completing-read
                          "Julian calendar month name: "
                          (mapcar 'list (append month-array nil))
                          nil t)
-                       (calendar-make-alist month-array 1))))
+                       (calendar-make-alist month-array 1) t)))
           (last
            (if (and (zerop (% year 4)) (= month 2))
                29
diff --git a/lisp/calendar/cal-mayan.el b/lisp/calendar/cal-mayan.el
index acaa1709080..c2c3e027c4b 100644
--- a/lisp/calendar/cal-mayan.el
+++ b/lisp/calendar/cal-mayan.el
@@ -256,11 +256,11 @@ Returns nil if such a tzolkin-haab combination is impossible."
          (haab-month-list (append calendar-mayan-haab-month-name-array
                                   (and (< haab-day 5) '("Uayeb"))))
          (haab-month (cdr
-                      (assoc-ignore-case
+                      (assoc-string
                        (completing-read "Haab uinal: "
                                         (mapcar 'list haab-month-list)
                                         nil t)
-                       (calendar-make-alist haab-month-list 1)))))
+                       (calendar-make-alist haab-month-list 1) t))))
     (cons haab-day haab-month)))
 
 (defun calendar-read-mayan-tzolkin-date ()
@@ -271,11 +271,11 @@ Returns nil if such a tzolkin-haab combination is impossible."
                          '(lambda (x) (and (> x 0) (< x 14)))))
          (tzolkin-name-list (append calendar-mayan-tzolkin-names-array nil))
          (tzolkin-name (cdr
-                        (assoc-ignore-case
+                        (assoc-string
                           (completing-read "Tzolkin uinal: "
                                            (mapcar 'list tzolkin-name-list)
                                            nil t)
-                         (calendar-make-alist tzolkin-name-list 1)))))
+                         (calendar-make-alist tzolkin-name-list 1) t))))
     (cons tzolkin-count tzolkin-name)))
 
 (defun calendar-next-calendar-round-date
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 7440a5c7e02..a0644f54aa2 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1164,7 +1164,7 @@ example, to include American presidential elections, which occur on the first
 Tuesday after the first Monday in November of years divisible by 4, add
 
      (holiday-sexp
-       (if (zerop (% year 4))
+       '(if (zerop (% year 4))
            (calendar-gregorian-from-absolute
              (1+ (calendar-dayname-on-or-before
                    1 (+ 6 (calendar-absolute-from-gregorian
@@ -2544,12 +2544,12 @@ If optional NODAY is t, does not ask for day, but just returns
                                 (calendar-current-date)))))
          (month-array calendar-month-name-array)
          (completion-ignore-case t)
-         (month (cdr (assoc-ignore-case
+         (month (cdr (assoc-string
                        (completing-read
                         "Month name: "
                         (mapcar 'list (append month-array nil))
                         nil t)
-                      (calendar-make-alist month-array 1))))
+                      (calendar-make-alist month-array 1) t)))
          (last (calendar-last-day-of-month month year)))
     (if noday
         (if (eq noday t)
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index d2a0075fb71..bb4ea20f804 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -906,19 +906,19 @@ After the entries are marked, the hooks `nongregorian-diary-marking-hook' and
                              marks (nth 1 temp))))
                 (if dd-name
                     (mark-calendar-days-named
-                     (cdr (assoc-ignore-case
+                     (cdr (assoc-string
                            dd-name
                            (calendar-make-alist
                             calendar-day-name-array
-                            0 nil calendar-day-abbrev-array))) marks)
+                            0 nil calendar-day-abbrev-array) t)) marks)
                   (if mm-name
                       (setq mm
                             (if (string-equal mm-name "*") 0
-                              (cdr (assoc-ignore-case
+                              (cdr (assoc-string
                                     mm-name
                                     (calendar-make-alist
                                      calendar-month-name-array
-                                     1 nil calendar-month-abbrev-array))))))
+                                     1 nil calendar-month-abbrev-array) t)))))
                   (mark-calendar-date-pattern mm dd yy marks))))
             (setq d (cdr d))))
         (mark-sexp-diary-entries)
diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index cda88f4e640..ce4e4877e5e 100644
--- a/lisp/play/morse.el
+++ b/lisp/play/morse.el
@@ -1,6 +1,6 @@
 ;;; morse.el --- convert text to morse code and back             -*- coding: utf-8 -*-
 
-;; Copyright (C) 1995, 2002 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 2002, 2004 Free Software Foundation, Inc.
 
 ;; Author: Rick Farnbach <rick_farnbach@MENTORG.COM>
 ;; Keywords: games
@@ -24,7 +24,7 @@
 
 ;;; Commentary:
 
-;; Converts text to Morse code and back with M-x morese-region and
+;; Converts text to Morse code and back with M-x morse-region and
 ;; M-x unmorse-region (though Morse code is no longer official :-().
 
 ;;; Code:
@@ -88,7 +88,9 @@
                      ("Ñ" . "--.--")
                      ("Ö" . "---.")
                      ("Ø" . "---.")
-                     ("Ü" . "..--"))
+                     ("Ü" . "..--")
+                     ;; Recently standardized
+                     ("@" . ".--.-."))
   "Morse code character set.")
 
 ;;;###autoload