Mercurial > emacs
comparison lisp/cedet/semantic/bovine/el.el @ 104470:6ccad1511df1
Minor whitespace changes and `require' fixes.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 06 Sep 2009 21:22:05 +0000 |
| parents | 688cf3b99678 |
| children | 118ad0cdd9a8 |
comparison
equal
deleted
inserted
replaced
| 104469:ce081012a7d6 | 104470:6ccad1511df1 |
|---|---|
| 461 "Find the file BUFFER depends on described by TAG." | 461 "Find the file BUFFER depends on described by TAG." |
| 462 (if (fboundp 'find-library-name) | 462 (if (fboundp 'find-library-name) |
| 463 (condition-case nil | 463 (condition-case nil |
| 464 ;; Try an Emacs 22 fcn. This throws errors. | 464 ;; Try an Emacs 22 fcn. This throws errors. |
| 465 (find-library-name (semantic-tag-name tag)) | 465 (find-library-name (semantic-tag-name tag)) |
| 466 (error | 466 (error |
| 467 (message "semantic: connot find source file %s" | 467 (message "semantic: connot find source file %s" |
| 468 (semantic-tag-name tag)))) | 468 (semantic-tag-name tag)))) |
| 469 ;; No handy function available. (Older Emacsen) | 469 ;; No handy function available. (Older Emacsen) |
| 470 (let* ((lib (locate-library (semantic-tag-name tag))) | 470 (let* ((lib (locate-library (semantic-tag-name tag))) |
| 471 (name (if lib (file-name-sans-extension lib) nil)) | 471 (name (if lib (file-name-sans-extension lib) nil)) |
| 531 (let ((sym (intern-soft (semantic-tag-name tag)))) | 531 (let ((sym (intern-soft (semantic-tag-name tag)))) |
| 532 ;; Query into the global table o stuff. | 532 ;; Query into the global table o stuff. |
| 533 (cond ((eq (semantic-tag-class tag) 'function) | 533 (cond ((eq (semantic-tag-class tag) 'function) |
| 534 (setq d (documentation sym))) | 534 (setq d (documentation sym))) |
| 535 (t | 535 (t |
| 536 (setq d (documentation-property | 536 (setq d (documentation-property |
| 537 sym 'variable-documentation))))) | 537 sym 'variable-documentation))))) |
| 538 ;; Label it as system doc.. perhaps just for debugging | 538 ;; Label it as system doc.. perhaps just for debugging |
| 539 ;; purposes. | 539 ;; purposes. |
| 540 (if d (setq d (concat "Sytem Doc: \n" d))) | 540 (if d (setq d (concat "Sytem Doc: \n" d))) |
| 541 )) | 541 )) |
| 542 ) | 542 ) |
| 543 | 543 |
| 544 (when d | 544 (when d |
| 545 (concat | 545 (concat |
| 546 (substitute-command-keys | 546 (substitute-command-keys |
| 547 (if (and (> (length d) 0) (= (aref d 0) ?*)) | 547 (if (and (> (length d) 0) (= (aref d 0) ?*)) |
| 548 (substring d 1) | 548 (substring d 1) |