diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-11-27 04:07:26 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-11-27 04:07:26 +0000 |
| commit | 36b5be6bd4ee9e33816c747167224d14d81596e0 (patch) | |
| tree | 6bab644486e032c86876905001a9b1afa71a4fe6 /lisp/ffap.el | |
| parent | 47330d3f425aa06c721afe1f8875203f5d90ef0d (diff) | |
| download | emacs-36b5be6bd4ee9e33816c747167224d14d81596e0.tar.gz | |
(ffap-bug, ffap-submit-bug): Redefine as obsolete aliases for
report-emacs-bug.
(gnus-summary-select-article, gnus-configure-windows): Declare as functions.
Diffstat (limited to 'lisp/ffap.el')
| -rw-r--r-- | lisp/ffap.el | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 8c338bd947a..af269559bfd 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el @@ -1045,6 +1045,9 @@ Assumes the buffer has not changed." ;; Older: (apply 'copy-region-as-kill ffap-string-at-point-region) (message "Copied to kill ring: %s" str)))) +;; External. +;;;(declare-function w3-view-this-url "w3" (&optional no-show)) + (defun ffap-url-at-point nil "Return url from around point if it exists, or nil." ;; Could use w3's url-get-url-at-point instead. Both handle "URL:", @@ -1687,20 +1690,8 @@ Only intended for interactive use." ;;; Bug Reporter: -(defun ffap-bug nil - "Submit a bug report for the ffap package." - ;; Important: keep the version string here in synch with that at top - ;; of file! Could use lisp-mnt from Emacs 19, but that would depend - ;; on being able to find the ffap.el source file. - (interactive) - (require 'reporter) - (let ((reporter-prompt-for-summary-p t)) - (reporter-submit-bug-report - "Michelangelo Grigni <mic@mathcs.emory.edu>" - "ffap" - (mapcar 'intern (all-completions "ffap-" obarray 'boundp))))) - -(fset 'ffap-submit-bug 'ffap-bug) ; another likely name +(define-obsolete-function-alias 'ffap-bug 'report-emacs-bug "23.1") +(define-obsolete-function-alias 'ffap-submit-bug 'report-emacs-bug "23.1") ;;; Hooks for Gnus, VM, Rmail: @@ -1724,6 +1715,13 @@ Only intended for interactive use." (defvar gnus-summary-buffer) (defvar gnus-article-buffer) +;; This code is called from gnus. +(declare-function gnus-summary-select-article "gnus-sum" + (&optional all-headers force pseudo article)) + +(declare-function gnus-configure-windows "gnus-win" + (setting &optional force)) + (defun ffap-gnus-wrapper (form) ; used by both commands below (and (eq (current-buffer) (get-buffer gnus-summary-buffer)) (gnus-summary-select-article)) ; get article of current line |