172 |
|
|
173 |
Commands: |
Commands: |
174 |
|
|
175 |
\\<enriched-mode-map>\\{enriched-mode-map}" |
\\{enriched-mode-map}" |
176 |
nil " Enriched" nil |
nil " Enriched" nil |
177 |
(cond ((null enriched-mode) |
(cond ((null enriched-mode) |
178 |
;; Turn mode off |
;; Turn mode off |
462 |
close and OPEN a list of annotations to open. Each of these lists |
close and OPEN a list of annotations to open. Each of these lists |
463 |
has the form `(ANNOTATION PARAM ...)'." |
has the form `(ANNOTATION PARAM ...)'." |
464 |
(let ((annotation "x-display") |
(let ((annotation "x-display") |
465 |
(param (prin1-to-string (or old new))) |
(param (prin1-to-string (or old new)))) |
|
close open) |
|
466 |
(if (null old) |
(if (null old) |
467 |
(list nil (list annotation param)) |
(list nil (list annotation param)) |
468 |
(list (list annotation param))))) |
(list (list annotation param))))) |