Parent Directory | Revision Log | Patch
revision 1.5.4.1 by handa, Fri Apr 16 12:50:11 2004 UTC | revision 1.5.4.2 by miles, Wed Oct 27 05:42:03 2004 UTC | |
---|---|---|
# | Line 183 | Line 183 |
183 | (if calc-prev-prev-char | (if calc-prev-prev-char |
184 | (calcDigit-nondigit) | (calcDigit-nondigit) |
185 | (setq calc-digit-value nil) | (setq calc-digit-value nil) |
186 | (erase-buffer) | (let ((inhibit-read-only t)) |
187 | (erase-buffer)) | |
188 | (exit-minibuffer))) | (exit-minibuffer))) |
189 | ;; just ignore extra decimal point, anticipating ".." | ;; just ignore extra decimal point, anticipating ".." |
190 | (delete-backward-char 1))) | (delete-backward-char 1))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |