Mercurial > emacs
comparison lisp/calc/calc-help.el @ 108774:895ee2ff8cc3
Merge from mainline.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Tue, 25 May 2010 07:23:37 +0000 |
parents | d835100c3e8b |
children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
108758:2903660f846b | 108774:895ee2ff8cc3 |
---|---|
126 nil t) | 126 nil t) |
127 (let ((dig1 (char-after (1- (match-beginning 1)))) | 127 (let ((dig1 (char-after (1- (match-beginning 1)))) |
128 (dig2 (char-after (match-beginning 3)))) | 128 (dig2 (char-after (match-beginning 3)))) |
129 (delete-region (match-end 1) (match-end 0)) | 129 (delete-region (match-end 1) (match-end 0)) |
130 (goto-char (match-beginning 1)) | 130 (goto-char (match-beginning 1)) |
131 (delete-backward-char 1) | 131 (delete-char -1) |
132 (delete-char 5) | 132 (delete-char 5) |
133 (insert (format "%c .. %c" (min dig1 dig2) (max dig1 dig2))))) | 133 (insert (format "%c .. %c" (min dig1 dig2) (max dig1 dig2))))) |
134 (goto-char (point-min))))) | 134 (goto-char (point-min))))) |
135 | 135 |
136 (defun calc-describe-key-briefly (key) | 136 (defun calc-describe-key-briefly (key) |