Show
Ignore:
Timestamp:
07/29/06 07:48:34 (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

    r4111 r4131  
    158158                          (find-function-search-for-symbol fun nil file))) 
    159159                     (pop-to-buffer (car location)) 
    160                      (when (cdr location) 
    161                        (goto-char (cdr location))))) 
     160                     (if (cdr location) 
     161                         (goto-char (cdr location)) 
     162                       (message "Unable to find location in file")))) 
    162163  'help-echo (purecopy "mouse-2, RET: find function's definition")) 
    163164 
    …… 
    169170                   (let ((location (find-variable-noselect var file))) 
    170171                     (pop-to-buffer (car location)) 
    171                      (when (cdr location) 
    172                        (goto-char (cdr location))))) 
     172                     (if (cdr location) 
     173                       (goto-char (cdr location)) 
     174                       (message "Unable to find location in file")))) 
    173175  'help-echo (purecopy "mouse-2, RET: find variable's definition")) 
    174176 
    …… 
    182184                          (find-function-search-for-symbol fun 'defface file))) 
    183185                     (pop-to-buffer (car location)) 
    184                      (when (cdr location) 
    185                        (goto-char (cdr location))))) 
     186                     (if (cdr location) 
     187                         (goto-char (cdr location)) 
     188                       (message "Unable to find location in file")))) 
    186189  'help-echo (purecopy "mouse-2, RET: find face's definition")) 
    187190