2344 |
,@body |
,@body |
2345 |
(kill-buffer temp)))) |
(kill-buffer temp)))) |
2346 |
|
|
2347 |
|
(eval-and-compile |
2348 |
(defun pr-get-symbol (name) |
(defun pr-get-symbol (name) |
2349 |
;; Recent versions of easy-menu downcase names before interning them. |
;; Recent versions of easy-menu downcase names before interning them. |
2350 |
(and (fboundp 'easy-menu-name-match) |
(and (fboundp 'easy-menu-name-match) |
2351 |
(setq name (downcase name))) |
(setq name (downcase name))) |
2352 |
(or (intern-soft name) |
(or (intern-soft name) |
2353 |
(make-symbol name))) |
(make-symbol name))) |
2354 |
|
) |
2355 |
|
|
2356 |
|
|
2357 |
(defsubst pr-visible-p (key) |
(defsubst pr-visible-p (key) |