Show
Ignore:
Timestamp:
11/18/04 08:05:19 (4 years ago)
Author:
miyoshi
Message:

Sync up.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-21.3.50/lisp/calc/calc-help.el

    r3533 r3551  
    11;;; calc-help.el --- help display functions for Calc, 
    22 
    3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002 Free Software Foundation, Inc. 
     3;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2004 
     4;;           Free Software Foundation, Inc. 
    45 
    56;; Author: David Gillespie <daveg@synaptics.com> 
    …… 
    113114  (save-excursion 
    114115    (set-buffer "*Help*") 
    115     (goto-char (point-min)) 
    116     (if (search-forward "Global bindings:" nil t) 
    117         (delete-region (match-beginning 0) (point-max))) 
    118     (goto-char (point-min)) 
    119     (while (re-search-forward "\n[a-z] ESC" nil t) 
    120       (end-of-line) 
    121       (delete-region (match-beginning 0) (point))) 
    122     (goto-char (point-min)) 
    123     (while (re-search-forward "\nESC m" nil t) 
    124       (end-of-line) 
    125       (delete-region (match-beginning 0) (point))) 
    126     (goto-char (point-min)) 
    127     (while (search-forward "\n\n\n" nil t) 
    128       (backward-delete-char 1) 
    129       (backward-char 2)) 
    130     (goto-char (point-min)) 
    131     (while 
    132         (re-search-forward 
    133          "\n[a-z] [0-9]\\(\t\t.*\n\\)\\([a-z] [0-9]\\1\\)*[a-z] \\([0-9]\\)\\1" 
    134          nil t) 
    135       (let ((dig1 (char-after (1- (match-beginning 1)))) 
    136             (dig2 (char-after (match-beginning 3)))) 
    137         (delete-region (match-end 1) (match-end 0)) 
    138         (goto-char (match-beginning 1)) 
    139         (delete-backward-char 1) 
    140         (delete-char 1) 
    141         (insert (format "%c .. %c" (min dig1 dig2) (max dig1 dig2))))) 
    142     (goto-char (point-min)))) 
     116    (let ((inhibit-read-only t)) 
     117      (goto-char (point-min)) 
     118      (when (search-forward "Major Mode Bindings:" nil t) 
     119        (delete-region (point-min) (point)) 
     120        (insert "Calc Mode Bindings:")) 
     121      (when (search-forward "Global bindings:" nil t) 
     122        (forward-line -1) 
     123        (delete-region (point) (point-max))) 
     124      (goto-char (point-min)) 
     125      (while 
     126          (re-search-forward 
     127           "\n[a-z] [0-9]\\( .*\n\\)\\([a-z] [0-9]\\1\\)*[a-z] \\([0-9]\\)\\1" 
     128           nil t) 
     129        (let ((dig1 (char-after (1- (match-beginning 1)))) 
     130              (dig2 (char-after (match-beginning 3)))) 
     131          (delete-region (match-end 1) (match-end 0)) 
     132          (goto-char (match-beginning 1)) 
     133          (delete-backward-char 1) 
     134          (delete-char 5) 
     135          (insert (format "%c .. %c" (min dig1 dig2) (max dig1 dig2))))) 
     136      (goto-char (point-min))))) 
    143137 
    144138(defun calc-describe-key-briefly (key) 
    …… 
    681675   "vec/mat" ?v)) 
    682676 
    683 ;;; arch-tag: 2d347593-7591-449e-a64a-93dab5f2f686 
     677;; arch-tag: 2d347593-7591-449e-a64a-93dab5f2f686 
    684678;;; calc-help.el ends here