Mercurial > emacs

comparison lisp/calc/calc-help.el @ 108774:895ee2ff8cc3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)