Remove directory part from filenames in function declarations.

11 files changed, 17 insertions, 17 deletions

diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el
index 023a4a3e4b..b11f7ca9d5 100644
--- a/lisp/emacs-lisp/timer.el
+++ b/lisp/emacs-lisp/timer.el
@@ -357,7 +357,7 @@ This function is called, by name, directly by the C code."
   (and (listp event) (eq (car event) 'timer-event)))
 
 
-(declare-function diary-entry-time "../calendar/diary-lib" (s))
+(declare-function diary-entry-time "diary-lib" (s))
 
 ;;;###autoload
 (defun run-at-time (time repeat function &rest args)
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index d43c118f4e..1674e7a266 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -1619,7 +1619,7 @@ Argument NUM is the percentage into the buffer to move."
     (fill-region (point) (mark))))
 
 
-(declare-function c-mark-function "../progmodes/cc-cmds" ())
+(declare-function c-mark-function "cc-cmds" ())
 ;;;
 ;;; MARK SECTION WISELY
 ;;;
diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el
index 889f81e75c..de7bcffdf0 100644
--- a/lisp/emulation/vi.el
+++ b/lisp/emulation/vi.el
@@ -1375,7 +1375,7 @@ The following CHAR will be the name for the command or macro."
 	   (setq char (read-char))
 	   (vi-ask-for-info char))))
 
-(declare-function c-mark-function "../progmodes/cc-cmds" ())
+(declare-function c-mark-function "cc-cmds" ())
 
 (defun vi-mark-region (arg region)
   "Mark region appropriately.  The next char REGION is d(efun),s(-exp),b(uffer),
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 5637fad59c..8603169819 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -3079,8 +3079,8 @@ On reaching beginning of line, stop and signal error."
     (setq this-command 'next-line)
     (if com (viper-execute-com 'viper-next-line val com))))
 
-(declare-function widget-type "../wid-edit" (widget))
-(declare-function widget-button-press "../wid-edit" (pos &optional event))
+(declare-function widget-type "wid-edit" (widget))
+(declare-function widget-button-press "wid-edit" (pos &optional event))
 (declare-function viper-set-hooks "viper" ())
 
 (defun viper-next-line-at-bol (arg)
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 83c765dd88..ff909f6bba 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -1112,7 +1112,7 @@ To input symbols and punctuations, type `/' followed by one of `a' to
  Some infrequent characters are accessed by typing \\, followed by
  the Cantonese romanization of the respective radical ($(0?f5}(B)."))
 
-(declare-function dos-8+3-filename "../dos-fns.el" (filename))
+(declare-function dos-8+3-filename "dos-fns.el" (filename))
 
 (defun miscdic-convert (filename &optional dirname)
   "Convert a dictionary file FILENAME into a Quail package.
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index dab87e0449..eb96ef0761 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -229,8 +229,8 @@ Type SPC to scroll through this section and its subsections."))))
       (setq report-emacs-bug-orig-text (buffer-substring (point-min) (point))))
     (goto-char user-point)))
 
-(declare-function Info-menu "../info" (menu-item &optional fork))
-(declare-function Info-goto-node "../info" (nodename &optional fork))
+(declare-function Info-menu "info" (menu-item &optional fork))
+(declare-function Info-goto-node "info" (nodename &optional fork))
 
 (defun report-emacs-bug-info ()
   "Go to the Info node on reporting Emacs bugs."
diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el
index 5df2c72b7e..4546880cca 100644
--- a/lisp/progmodes/dcl-mode.el
+++ b/lisp/progmodes/dcl-mode.el
@@ -2201,7 +2201,7 @@ otherwise return nil."
           ()
         (equal start (match-end 0))))))
 
-(declare-function imenu-default-create-index-function "../imenu" ())
+(declare-function imenu-default-create-index-function "imenu" ())
 
 ;;;-------------------------------------------------------------------------
 (defun dcl-imenu-create-index-function ()
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 190442bf26..dd3503f16b 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -240,10 +240,10 @@ rigidly along with this one (not yet)."
 (defvar inferior-prolog-mode-syntax-table prolog-mode-syntax-table)
 (defvar inferior-prolog-mode-abbrev-table prolog-mode-abbrev-table)
 
-(declare-function comint-mode "../comint")
-(declare-function comint-send-string "../comint" (process string))
-(declare-function comint-send-region "../comint" (process start end))
-(declare-function comint-send-eof "../comint" ())
+(declare-function comint-mode "comint")
+(declare-function comint-send-string "comint" (process string))
+(declare-function comint-send-region "comint" (process start end))
+(declare-function comint-send-eof "comint" ())
 
 (define-derived-mode inferior-prolog-mode comint-mode "Inferior Prolog"
   "Major mode for interacting with an inferior Prolog process.
diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index 8b26db1a12..6327a68302 100644
--- a/lisp/progmodes/ps-mode.el
+++ b/lisp/progmodes/ps-mode.el
@@ -481,7 +481,7 @@ If nil, the following are tried in turn, until success:
 
 
 
-(declare-function doc-view-minor-mode "../doc-view")
+(declare-function doc-view-minor-mode "doc-view")
 
 ;; PostScript mode.
 
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 0708bf7037..66779acb10 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -1658,7 +1658,7 @@ instance.  Assumes an inferior Python is running."
 
 ;;;; Info-look functionality.
 
-(declare-function info-lookup-maybe-add-help "../info-look" (&rest arg))
+(declare-function info-lookup-maybe-add-help "info-look" (&rest arg))
 
 (defun python-after-info-look ()
   "Set up info-look for Python.
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index cd60cf3bf3..5c6638a51e 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -831,8 +831,8 @@ in the active region."
 		   (fill-region-as-paragraph beg end justify))))))
      fill-pfx)))
 
-(declare-function comment-search-forward "../newcomment" (limit &optional noerror))
-(declare-function comment-string-strip "../newcomment" (str beforep afterp))
+(declare-function comment-search-forward "newcomment" (limit &optional noerror))
+(declare-function comment-string-strip "newcomment" (str beforep afterp))
 
 
 (defun fill-comment-paragraph (&optional justify)