Show
Ignore:
Timestamp:
07/16/06 08:36:52 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/help-mode.el

    r4098 r4111  
    158158                          (find-function-search-for-symbol fun nil file))) 
    159159                     (pop-to-buffer (car location)) 
    160                      (goto-char (cdr location)))) 
     160                     (when (cdr location) 
     161                       (goto-char (cdr location))))) 
    161162  'help-echo (purecopy "mouse-2, RET: find function's definition")) 
    162163 
    …… 
    168169                   (let ((location (find-variable-noselect var file))) 
    169170                     (pop-to-buffer (car location)) 
    170                      (goto-char (cdr location)))) 
    171   'help-echo (purecopy"mouse-2, RET: find variable's definition")) 
     171                     (when (cdr location) 
     172                       (goto-char (cdr location))))) 
     173  'help-echo (purecopy "mouse-2, RET: find variable's definition")) 
    172174 
    173175(define-button-type 'help-face-def 
    …… 
    180182                          (find-function-search-for-symbol fun 'defface file))) 
    181183                     (pop-to-buffer (car location)) 
    182                      (goto-char (cdr location)))) 
     184                     (when (cdr location) 
     185                       (goto-char (cdr location))))) 
    183186  'help-echo (purecopy "mouse-2, RET: find face's definition")) 
    184187