Show
Ignore:
Timestamp:
11/01/05 07:08:22 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-CVS_HEAD/lisp/bookmark.el

    r3892 r3939  
    199199 
    200200 
     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 
    201208;;; No user-serviceable parts beyond this point. 
    202209 
    …… 
    211218;; suggested for lucid compatibility by david hughes: 
    212219(or (fboundp 'frame-height)  (defalias 'frame-height 'screen-height)) 
    213  
    214 ;; This variable is probably obsolete now... 
    215 (or (boundp 'baud-rate) 
    216     ;; some random value higher than 9600 
    217     (setq baud-rate 19200)) 
    218  
    219220 
    220221  
    …… 
    11761177        (insert (bookmark-location bookmark)) ; *Return this line* 
    11771178      (if (and (display-color-p) (display-mouse-p)) 
    1178           (add-text-properties start 
    1179                                (save-excursion (re-search-backward 
    1180                                                 "[^ \t]") 
     1179          (add-text-properties 
     1180           start 
     1181           (save-excursion (re-search-backward 
     1182                            "[^ \t]") 
    11811183                                               (1+ (point))) 
    1182                                '(mouse-face highlight 
    1183                                  help-echo "mouse-2: go to this bookmark")))))) 
     1184           '(mouse-face highlight 
     1185             follow-link t 
     1186             help-echo "mouse-2: go to this bookmark in other window")))))) 
    11841187 
    11851188;;;###autoload 
    …… 
    15541557    (erase-buffer) 
    15551558    (insert "% Bookmark\n- --------\n") 
     1559    (add-text-properties (point-min) (point) 
     1560                         '(font-lock-face bookmark-menu-heading)) 
    15561561    (bookmark-maybe-sort-alist) 
    15571562    (mapcar 
    …… 
    15671572           (insert (bookmark-name-from-full-record full-record)) 
    15681573           (if (and (display-color-p) (display-mouse-p)) 
    1569                (add-text-properties start 
    1570                                     (save-excursion (re-search-backward 
    1571                                                      "[^ \t]") 
    1572                                                     (1+ (point))) 
    1573                                     '(mouse-face highlight 
    1574                                       help-echo "mouse-2: go to this bookmark"))) 
     1574               (add-text-properties 
     1575                start 
     1576                (save-excursion (re-search-backward 
     1577                                 "[^ \t]") 
     1578                                (1+ (point))) 
     1579                '(mouse-face highlight 
     1580                  follow-link t 
     1581                  help-echo "mouse-2: go to this bookmark in other window"))) 
    15751582           (insert "\n") 
    15761583           ))) 
    …… 
    16961703                  (insert (car bookmark-bmenu-hidden-bookmarks)) 
    16971704                  (if (and (display-color-p) (display-mouse-p)) 
    1698                       (add-text-properties start 
    1699                                            (save-excursion (re-search-backward 
    1700                                                             "[^ \t]") 
    1701                                                            (1+ (point))) 
    1702                                            '(mouse-face highlight 
    1703                                              help-echo 
    1704                                              "mouse-2: go to this bookmark")))) 
     1705                      (add-text-properties 
     1706                       start 
     1707                       (save-excursion (re-search-backward 
     1708                                        "[^ \t]") 
     1709                                       (1+ (point))) 
     1710                       '(mouse-face highlight 
     1711                         follow-link t 
     1712                         help-echo 
     1713                         "mouse-2: go to this bookmark in other window")))) 
    17051714                (setq bookmark-bmenu-hidden-bookmarks 
    17061715                      (cdr bookmark-bmenu-hidden-bookmarks))