Remove directory part from filenames in function declarations.

diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el
index 023a4a3e4b7fe4f81cef7ecaad794bad87473cf1..b11f7ca9d5cfcba13b6bb6bc714f17e4b6ae7d45 100644 (file)
--- 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)))
 \f
 
-(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 d43c118f4e1b2a30ed278028b1acbf1434b62c87..1674e7a266b4026e2283ded1b6bc5832624b0c08 100644 (file)
--- 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 889f81e75c7d867228c6b223b6eb8d98c316f3ad..de7bcffdf0e3f697e739efe8e4ed4577f619d118 100644 (file)
--- 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 5637fad59c7ecf2cb2ca337ae1c196ac639f1fe4..8603169819f93d59846fce525aae77310211c4b6 100644 (file)
--- 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 83c765dd8871b757d52089ff0568cb95cc0aa949..ff909f6bba7fbf480a6e2a98eaf46426c54a051c 100644 (file)
--- 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 (\e$(0?f5}\e(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 dab87e04497e4cb32f085e72b2391a1f27bee576..eb96ef07612ebd42724f498f37d220d0f8df338f 100644 (file)
--- 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 5df2c72b7e0dff54cec85a2ce3edd4c537f638ae..4546880cca5591273af064fbaddcf77fd56519d8 100644 (file)
--- 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 190442bf26ea50dbbea8f733cde038c3fde3d680..dd3503f16b05387a155594403b4f94bc3a5626be 100644 (file)
--- 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 8b26db1a12e6eb29e566a710dcb5cbbd7aaf07db..6327a68302b6f19b3344698d56b427120353a20e 100644 (file)
--- 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:
 
 \f
 
-(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 0708bf7037d0f130e0fd0af335b0fd9ac8cb4e93..66779acb1033efed984251d441ccc4e14e4f5c1a 100644 (file)
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -1658,7 +1658,7 @@ instance.  Assumes an inferior Python is running."
 \f
 ;;;; 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 cd60cf3bf34867417b8ec3b9c79d9dff8dbd1606..5c6638a51e9edcfc60563dae765d3626762b25a7 100644 (file)
--- 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)