diff options
| author | Jay Belanger | 2008-07-13 05:42:31 +0000 |
|---|---|---|
| committer | Jay Belanger | 2008-07-13 05:42:31 +0000 |
| commit | 241d447bd378cbe9cb7f7c0d73ff2e9f1e48a9eb (patch) | |
| tree | 218be366b60727ece032e7fec3b03de9d80fc8fc /lisp/calc | |
| parent | a8b14149708453f8cc701202d2d6b2cf7ffc4e1f (diff) | |
| download | emacs-241d447bd378cbe9cb7f7c0d73ff2e9f1e48a9eb.tar.gz emacs-241d447bd378cbe9cb7f7c0d73ff2e9f1e48a9eb.zip | |
(calc-describe-key): Add angles to special key descriptions.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-help.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el index 7b9ac5cd1fd..79026df66a8 100644 --- a/lisp/calc/calc-help.el +++ b/lisp/calc/calc-help.el | |||
| @@ -175,6 +175,8 @@ C-w Describe how there is no warranty for Calc." | |||
| 175 | (setq desc (concat "M-" (substring desc 4)))) | 175 | (setq desc (concat "M-" (substring desc 4)))) |
| 176 | (while (string-match "^M-# \\(ESC \\|C-\\)" desc) | 176 | (while (string-match "^M-# \\(ESC \\|C-\\)" desc) |
| 177 | (setq desc (concat "M-# " (substring desc (match-end 0))))) | 177 | (setq desc (concat "M-# " (substring desc (match-end 0))))) |
| 178 | (if (string-match "\\(DEL\\|\\LFD\\|RET\\|SPC\\|TAB\\)" desc) | ||
| 179 | (setq desc (replace-match "<\\&>" nil nil desc))) | ||
| 178 | (if briefly | 180 | (if briefly |
| 179 | (let ((msg (save-excursion | 181 | (let ((msg (save-excursion |
| 180 | (set-buffer (get-buffer-create "*Calc Summary*")) | 182 | (set-buffer (get-buffer-create "*Calc Summary*")) |