198 |
:group 'bookmark) |
:group 'bookmark) |
199 |
|
|
200 |
|
|
201 |
|
(defface bookmark-menu-heading |
202 |
|
'((t (:inherit font-lock-type-face))) |
203 |
|
"Face used to highlight the heading in bookmark menu buffers." |
204 |
|
:group 'bookmark |
205 |
|
:version "22.1") |
206 |
|
|
207 |
|
|
208 |
;;; No user-serviceable parts beyond this point. |
;;; No user-serviceable parts beyond this point. |
209 |
|
|
210 |
;; Is it XEmacs? |
;; Is it XEmacs? |
218 |
;; suggested for lucid compatibility by david hughes: |
;; suggested for lucid compatibility by david hughes: |
219 |
(or (fboundp 'frame-height) (defalias 'frame-height 'screen-height)) |
(or (fboundp 'frame-height) (defalias 'frame-height 'screen-height)) |
220 |
|
|
|
;; This variable is probably obsolete now... |
|
|
(or (boundp 'baud-rate) |
|
|
;; some random value higher than 9600 |
|
|
(setq baud-rate 19200)) |
|
|
|
|
|
|
|
221 |
|
|
222 |
;;; Keymap stuff: |
;;; Keymap stuff: |
223 |
|
|
1556 |
(let ((inhibit-read-only t)) |
(let ((inhibit-read-only t)) |
1557 |
(erase-buffer) |
(erase-buffer) |
1558 |
(insert "% Bookmark\n- --------\n") |
(insert "% Bookmark\n- --------\n") |
1559 |
|
(add-text-properties (point-min) (point) |
1560 |
|
'(font-lock-face bookmark-menu-heading)) |
1561 |
(bookmark-maybe-sort-alist) |
(bookmark-maybe-sort-alist) |
1562 |
(mapcar |
(mapcar |
1563 |
(lambda (full-record) |
(lambda (full-record) |