diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2008-07-13 05:37:09 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2008-07-13 05:37:09 +0000 |
| commit | 184b9da2b540eee985afb28999fa5c131b7aa760 (patch) | |
| tree | 83ba5a8743f6691312e092cbd7f3a3723c54e1be | |
| parent | c429ac3f415767df1bcbf7ff21fcc680a6c59198 (diff) | |
| download | emacs-184b9da2b540eee985afb28999fa5c131b7aa760.tar.gz | |
(calc-describe-key): Add angles to special key descriptions.
| -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." (setq desc (concat "M-" (substring desc 4)))) (while (string-match "^M-# \\(ESC \\|C-\\)" desc) (setq desc (concat "M-# " (substring desc (match-end 0))))) + (if (string-match "\\(DEL\\|\\LFD\\|RET\\|SPC\\|TAB\\)" desc) + (setq desc (replace-match "<\\&>" nil nil desc))) (if briefly (let ((msg (save-excursion (set-buffer (get-buffer-create "*Calc Summary*")) |