Commit 5cec3056 authored by Glenn Morris's avatar Glenn Morris
Browse files

Remove directory part from filenames in function declarations.

parent 292071b4
......@@ -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)
......
......@@ -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
;;;
......
......@@ -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),
......
......@@ -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)
......
......@@ -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.
......
......@@ -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."
......
......@@ -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 ()
......
......@@ -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.
......
......@@ -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.
......
......@@ -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.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment