From 5cec305694c24f57f0cb0b46a089323d18274142 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 6 Dec 2007 04:09:57 +0000 Subject: [PATCH] Remove directory part from filenames in function declarations. --- lisp/emacs-lisp/timer.el | 2 +- lisp/emulation/edt.el | 2 +- lisp/emulation/vi.el | 2 +- lisp/emulation/viper-cmd.el | 4 ++-- lisp/international/titdic-cnv.el | 2 +- lisp/mail/emacsbug.el | 4 ++-- lisp/progmodes/dcl-mode.el | 2 +- lisp/progmodes/prolog.el | 8 ++++---- lisp/progmodes/ps-mode.el | 2 +- lisp/progmodes/python.el | 2 +- lisp/textmodes/fill.el | 4 ++-- 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) -- 2.20.1