[elpa] externals/realgud 7c0acdc 140/140: Another pass over function declarations

[Rocky Bernstein]

branch: externals/realgud
commit 7c0acdcd068ae0661fd18666a5aa4b6f45e73a2a
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    Another pass over function declarations
---
 realgud/common/buffer/backtrace.el  |  1 +
 realgud/common/buffer/breakpoint.el | 16 +++++++++-------
 realgud/common/file.el              |  2 +-
 realgud/common/follow.el            |  1 +
 realgud/common/regexp.el            | 17 +++++++++--------
 realgud/common/send.el              |  1 +
 realgud/debugger/bashdb/init.el     |  4 ++--
 realgud/debugger/gdb/init.el        |  8 ++++----
 realgud/debugger/gub/init.el        |  4 ++--
 realgud/debugger/ipdb/init.el       |  2 +-
 realgud/debugger/jdb/init.el        |  2 +-
 realgud/debugger/kshdb/init.el      |  2 +-
 realgud/debugger/nodejs/init.el     |  2 +-
 realgud/debugger/pdb/init.el        |  2 +-
 realgud/debugger/perldb/init.el     |  2 +-
 realgud/debugger/rdebug/init.el     |  2 +-
 realgud/debugger/remake/init.el     |  2 +-
 realgud/debugger/trepan.pl/init.el  |  4 ++--
 realgud/debugger/trepan/init.el     |  4 ++--
 realgud/debugger/trepan2/init.el    |  2 +-
 realgud/debugger/trepan3k/init.el   |  2 +-
 realgud/debugger/trepanjs/init.el   |  2 +-
 realgud/debugger/zshdb/init.el      |  2 +-
 realgud/lang/Makefile.am            |  1 -
 realgud/lang/java.el                |  3 ++-
 realgud/lang/js.el                  |  1 +
 realgud/lang/perl.el                |  3 ++-
 realgud/lang/posix-shell.el         |  3 ++-
 realgud/lang/python.el              |  1 +
 realgud/lang/ruby.el                |  3 ++-
 30 files changed, 56 insertions(+), 45 deletions(-)

diff --git a/realgud/common/buffer/backtrace.el 
b/realgud/common/buffer/backtrace.el
index 3b9b8b8..4a257d9 100644
--- a/realgud/common/buffer/backtrace.el
+++ b/realgud/common/buffer/backtrace.el
@@ -29,6 +29,7 @@
 
 (declare-function realgud-cmdbuf-debugger-name        'realgud-buffer-command)
 (declare-function realgud-cmdbuf?                     'realgud-buffer-command)
+(declare-function realgud-cmdbuf-info-bt-buf=         'realgud-buffer-command)
 (declare-function realgud-cmdbuf-info-divert-output?= 'realgud-buffer-command)
 (declare-function realgud-backtrace-mode (cmdbuf))
 (declare-function realgud:cmd-backtrace (arg))
diff --git a/realgud/common/buffer/breakpoint.el 
b/realgud/common/buffer/breakpoint.el
index caf504d..60e123b 100644
--- a/realgud/common/buffer/breakpoint.el
+++ b/realgud/common/buffer/breakpoint.el
@@ -1,4 +1,4 @@
-;;; Backtrace buffer
+;;; Breakpoint buffer
 
 ;; Author: Rocky Bernstein <address@hidden>
 
@@ -20,6 +20,7 @@
 
 (require 'ansi-color)
 (require 'ring)
+(require 'seq)
 (require 'load-relative)
 (eval-when-compile (require 'cl-lib))
 (require-relative-list
@@ -30,14 +31,15 @@
 
 (declare-function realgud-cmdbuf-debugger-name        'realgud-buffer-command)
 (declare-function realgud-cmdbuf?                     'realgud-buffer-command)
+(declare-function realgud-cmdbuf-info-bkpt-buf=       'realgud-buffer-command)
 (declare-function realgud-cmdbuf-info-divert-output?= 'realgud-buffer-command)
-(declare-function realgud-breakpoint-mode (cmdbuf))
-(declare-function realgud:cmd-breakpoint (arg))
+(declare-function realgud-cmdbuf-info-in-srcbuf?=     'realgud-buffer-command)
+(declare-function realgud:cmd-breakpoint              'realgud-cmds)
 (declare-function realgud:cmd-info-breakpoints 'realgud-cmds)
-(declare-function realgud-cmdbuf-pat(key))
-(declare-function realgud-cmdbuf-info-in-srcbuf?= (arg))
-(declare-function realgud-get-cmdbuf 'realgud-buffer-helper)
-(declare-function realgud:file-loc-from-line 'realgud-file)
+(declare-function realgud-cmdbuf-pat                  'realgud-buffer-command)
+(declare-function realgud-get-cmdbuf                  'realgud-buffer-helper)
+(declare-function realgud:file-loc-from-line          'realgud-file)
+(declare-function realgud-loc-goto                    'realgud-loc)
 (declare-function buffer-killed?       'realgud-helper)
 (declare-function realgud:loc-describe 'realgud-loc)
 
diff --git a/realgud/common/file.el b/realgud/common/file.el
index 20fc21c..9764414 100644
--- a/realgud/common/file.el
+++ b/realgud/common/file.el
@@ -25,7 +25,7 @@
 (declare-function buffer-killed?        'helper)
 (declare-function compilation-find-file 'compile)
 (declare-function realgud-cmdbuf-info-ignore-re-file-list  
'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-ignore-re-file-list= 
'realgud-buffer-command)
+(declare-function realgud-cmdbuf-info-source-path=         
'realgud-buffer-command)
 (declare-function realgud-cmdbuf-mutex                     
'realgud-buffer-command)
 (declare-function realgud-cmdbuf-filename-remap-alist      
'realgud-buffer-command)
 (declare-function realgud-cmdbuf-filename-remap-alist=     
'realgud-buffer-command)
diff --git a/realgud/common/follow.el b/realgud/common/follow.el
index fe7e305..12cf2c2 100644
--- a/realgud/common/follow.el
+++ b/realgud/common/follow.el
@@ -16,6 +16,7 @@
 (require 'load-relative)
 
 (declare-function realgud:cmd-frame 'realgud-cmds)
+(declare-function realgud-loc-p     'realgud-loc)
 
 (defun realgud:follow-mark(mark)
   (when (markerp mark)
diff --git a/realgud/common/regexp.el b/realgud/common/regexp.el
index 4cdbbff..7af082a 100644
--- a/realgud/common/regexp.el
+++ b/realgud/common/regexp.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2010-2011, 2014-2016 Free Software Foundation, Inc
+;; Copyright (C) 2010-2011, 2014-2016, 2019 Free Software Foundation, Inc
 
 ;; Author: Rocky Bernstein <address@hidden>
 
@@ -64,18 +64,19 @@ output by a debugger inside a process shell"
 (defconst realgud:regexp-captured-num  "\\([0-9]+\\)")
 
 (defvar realgud-pat-hash (make-hash-table :test 'equal)
-  "Hash key is the debugger name, a string. The values of a hash entry
-  is a realgud-loc-pat struct")
+  "Hash key is the debugger name, a string.
+The values of a hash entry is a realgud-loc-pat struct")
 
 (defvar realgud-command-hash (make-hash-table :test 'equal)
-  "Hash key is the debugger name, a string. The value of a hash
-  entry is a hash table mapping cannonic command name
-  debugger-specific command name. For example, for trepanning:
+  "Hash key is the debugger name, a string.
+The value of a hash entry is a hash table mapping cannonic command name
+  debugger-specific command name.  For example, for trepanning:
   'quit' -> 'quit!'")
 
 (defvar realgud:variable-basename-hash (make-hash-table :test 'equal)
-  "Hash key is the debugger name, a string. The value of a hash
-  entry is the base name to use that variables of that debugger use.
+  "Hash key is the debugger name, a string.
+The value of a hash
+entry is the base name to use that variables of that debugger use.
   For example, for 'gdb' it is 'realgud:gdb'.")
 
 (provide 'realgud-regexp)
diff --git a/realgud/common/send.el b/realgud/common/send.el
index a6fb4ed..094726a 100644
--- a/realgud/common/send.el
+++ b/realgud/common/send.el
@@ -22,6 +22,7 @@
 (require-relative-list '("buffer/helper") "realgud-buffer-")
 
 (declare-function realgud-get-cmdbuf        'realgud-buffer-helper)
+(declare-function realgud-cmdbuf-info-in-debugger?= 'realgud-command)
 (declare-function realgud-window-cmd-undisturb-src 'realgud-window)
 (declare-function comint-goto-process-mark  'comint)
 (declare-function comint-send-input         'comint)
diff --git a/realgud/debugger/bashdb/init.el b/realgud/debugger/bashdb/init.el
index 06dc285..a105fcd 100644
--- a/realgud/debugger/bashdb/init.el
+++ b/realgud/debugger/bashdb/init.el
@@ -26,7 +26,7 @@
 (require-relative-list '("../../lang/posix-shell") "realgud-lang-")
 
 (defvar realgud:bashdb-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud:bashdb-pat-hash (make-hash-table :test 'equal)
   "Hash key is the what kind of pattern we want to match:
@@ -103,7 +103,7 @@ realgud-loc-pat struct")
 
 (defvar realgud:bashdb-command-hash (make-hash-table :test 'equal)
   "Hash key is command name like 'quit' and the value is
-  the bashdb command to use, like 'quit!'")
+the bashdb command to use, like 'quit!'")
 
 (setf (gethash "bashdb" realgud-command-hash) realgud:bashdb-command-hash)
 
diff --git a/realgud/debugger/gdb/init.el b/realgud/debugger/gdb/init.el
index 3b0b148..062846d 100644
--- a/realgud/debugger/gdb/init.el
+++ b/realgud/debugger/gdb/init.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
+;; Copyright (C) 2015-2017, 2019 Free Software Foundation, Inc
 
 ;; Author: Rocky Bernstein <address@hidden>
 
@@ -23,10 +23,10 @@
 (require-relative-list '("../../common/regexp" "../../common/loc") "realgud-")
 
 (defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud:gdb-pat-hash (make-hash-table :test 'equal)
-  "hash key is the what kind of pattern we want to match:
+  "Hash key is the what kind of pattern we want to match:
 backtrace, prompt, etc.  the values of a hash entry is a
 realgud-loc-pat struct")
 
@@ -172,7 +172,7 @@ realgud-loc-pat struct")
 
 (defvar realgud:gdb-command-hash (make-hash-table :test 'equal)
   "Hash key is command name like 'continue' and the value is
-  the gdb command to use, like 'continue'")
+the gdb command to use, like 'continue'.")
 
 (setf (gethash "break"    realgud:gdb-command-hash) "break %X:%l")
 (setf (gethash "clear"    realgud:gdb-command-hash) "clear %X:%l")
diff --git a/realgud/debugger/gub/init.el b/realgud/debugger/gub/init.el
index f244267..3ed2fae 100644
--- a/realgud/debugger/gub/init.el
+++ b/realgud/debugger/gub/init.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
+;; Copyright (C) 2015-2016, 2019 Free Software Foundation, Inc
 ;; Author: Rocky Bernstein <address@hidden>
 
 ;; This program is free software: you can redistribute it and/or
@@ -26,7 +26,7 @@
                       "realgud-")
 
 (defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud:gub-pat-hash (make-hash-table :test 'equal)
   "Hash key is the what kind of pattern we want to match:
diff --git a/realgud/debugger/ipdb/init.el b/realgud/debugger/ipdb/init.el
index 187f805..d995d5f 100644
--- a/realgud/debugger/ipdb/init.el
+++ b/realgud/debugger/ipdb/init.el
@@ -27,7 +27,7 @@
 (require-relative-list '("../../lang/python") "realgud-lang-")
 
 (defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud:ipdb-pat-hash (make-hash-table :test 'equal)
   "Hash key is the what kind of pattern we want to match:
diff --git a/realgud/debugger/jdb/init.el b/realgud/debugger/jdb/init.el
index b344820..e1bb4e6 100644
--- a/realgud/debugger/jdb/init.el
+++ b/realgud/debugger/jdb/init.el
@@ -18,7 +18,7 @@
 (require-relative-list '("../../lang/java") "realgud-lang-")
 
 (defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defconst realgud:jdb-identifier "[A-Za-z_][A-Za-z0-9_.]+"
 "Regexp string that matches a Java identifier possily with class
diff --git a/realgud/debugger/kshdb/init.el b/realgud/debugger/kshdb/init.el
index c6e2d0f..f68483c 100644
--- a/realgud/debugger/kshdb/init.el
+++ b/realgud/debugger/kshdb/init.el
@@ -19,7 +19,7 @@
 (require-relative-list '("../../lang/posix-shell") "realgud-lang-")
 
 (defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud:kshdb-pat-hash (make-hash-table :test 'equal)
   "Hash key is the what kind of pattern we want to match:
diff --git a/realgud/debugger/nodejs/init.el b/realgud/debugger/nodejs/init.el
index a095dec..915b43f 100644
--- a/realgud/debugger/nodejs/init.el
+++ b/realgud/debugger/nodejs/init.el
@@ -30,7 +30,7 @@
 (require-relative-list '("../../lang/js") "realgud-lang-")
 
 (defvar realgud:nodejs-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud:nodejs-pat-hash (make-hash-table :test 'equal)
   "Hash key is the what kind of pattern we want to match:
diff --git a/realgud/debugger/pdb/init.el b/realgud/debugger/pdb/init.el
index b6e702f..95b35ec 100644
--- a/realgud/debugger/pdb/init.el
+++ b/realgud/debugger/pdb/init.el
@@ -26,7 +26,7 @@
 (require-relative-list '("../../lang/python") "realgud-lang-")
 
 (defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud:pdb-pat-hash (make-hash-table :test 'equal)
   "Hash key is the what kind of pattern we want to match:
diff --git a/realgud/debugger/perldb/init.el b/realgud/debugger/perldb/init.el
index ee18e0c..2101b06 100644
--- a/realgud/debugger/perldb/init.el
+++ b/realgud/debugger/perldb/init.el
@@ -23,7 +23,7 @@
 (require-relative-list '("../../lang/perl") "realgud-lang-")
 
 (defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud:perldb-pat-hash (make-hash-table :test 'equal)
   "Hash key is the what kind of pattern we want to match:
diff --git a/realgud/debugger/rdebug/init.el b/realgud/debugger/rdebug/init.el
index 85ce152..570d447 100644
--- a/realgud/debugger/rdebug/init.el
+++ b/realgud/debugger/rdebug/init.el
@@ -16,7 +16,7 @@
 (require-relative-list '("../../lang/ruby") "realgud-lang-")
 
 (defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud-rdebug-pat-hash (make-hash-table :test 'equal)
   "Hash key is the what kind of pattern we want to match:
diff --git a/realgud/debugger/remake/init.el b/realgud/debugger/remake/init.el
index 0158e98..e80df0b 100644
--- a/realgud/debugger/remake/init.el
+++ b/realgud/debugger/remake/init.el
@@ -24,7 +24,7 @@
                       "realgud-")
 
 (defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud:remake-pat-hash (make-hash-table :test 'equal)
   "Hash key is the what kind of pattern we want to match:
diff --git a/realgud/debugger/trepan.pl/init.el 
b/realgud/debugger/trepan.pl/init.el
index f3bf383..0c87fc2 100644
--- a/realgud/debugger/trepan.pl/init.el
+++ b/realgud/debugger/trepan.pl/init.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
+;; Copyright (C) 2015-2016, 2019 Free Software Foundation, Inc
 
 ;; Author: Rocky Bernstein <address@hidden>
 
@@ -26,7 +26,7 @@
 (require-relative-list '("../../lang/perl") "realgud-lang-")
 
 (defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud:trepanpl-pat-hash (make-hash-table :test 'equal)
   "Hash key is the what kind of pattern we want to match:
diff --git a/realgud/debugger/trepan/init.el b/realgud/debugger/trepan/init.el
index ac2784f..3b14536 100644
--- a/realgud/debugger/trepan/init.el
+++ b/realgud/debugger/trepan/init.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2010, 2014-2016 Free Software Foundation, Inc
+;; Copyright (C) 2010, 2014-2016, 2019 Free Software Foundation, Inc
 
 ;; Author: Rocky Bernstein <address@hidden>
 
@@ -26,7 +26,7 @@
 (require-relative-list '("../../lang/ruby") "realgud-lang-")
 
 (defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud:trepan-pat-hash (make-hash-table :test 'equal)
   "Hash key is the what kind of pattern we want to match:
diff --git a/realgud/debugger/trepan2/init.el b/realgud/debugger/trepan2/init.el
index 9217ae1..029a0e7 100644
--- a/realgud/debugger/trepan2/init.el
+++ b/realgud/debugger/trepan2/init.el
@@ -27,7 +27,7 @@
 (require-relative-list '("../../lang/python") "realgud-lang-")
 
 (defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud:trepan2-pat-hash (make-hash-table :test 'equal)
   "Hash key is the what kind of pattern we want to match:
diff --git a/realgud/debugger/trepan3k/init.el 
b/realgud/debugger/trepan3k/init.el
index 3474410..e67ec6d 100644
--- a/realgud/debugger/trepan3k/init.el
+++ b/realgud/debugger/trepan3k/init.el
@@ -27,7 +27,7 @@
 (require-relative-list '("../../lang/python") "realgud-lang-")
 
 (defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud:trepan3k-pat-hash (make-hash-table :test 'equal)
   "Hash key is the what kind of pattern we want to match:
diff --git a/realgud/debugger/trepanjs/init.el 
b/realgud/debugger/trepanjs/init.el
index 4f02a17..8ca505d 100644
--- a/realgud/debugger/trepanjs/init.el
+++ b/realgud/debugger/trepanjs/init.el
@@ -30,7 +30,7 @@
 backtrace, prompt, etc.  The values of a hash entry is a
 realgud-loc-pat struct")
 
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 ;; realgud-loc-pat that describes a trepanjs location generally shown
 ;; before a command prompt.
diff --git a/realgud/debugger/zshdb/init.el b/realgud/debugger/zshdb/init.el
index a186fd3..66ba2d9 100644
--- a/realgud/debugger/zshdb/init.el
+++ b/realgud/debugger/zshdb/init.el
@@ -25,7 +25,7 @@
 (require-relative-list '("../../lang/posix-shell") "realgud-lang-")
 
 (defvar realgud:zshdb-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defvar realgud:zshdb-pat-hash (make-hash-table :test 'equal)
   "Hash key is the what kind of pattern we want to match:
diff --git a/realgud/lang/Makefile.am b/realgud/lang/Makefile.am
index 58c16cf..326d85a 100644
--- a/realgud/lang/Makefile.am
+++ b/realgud/lang/Makefile.am
@@ -3,4 +3,3 @@ lispdir = @lispdir_realgud@/$(notdir $(subdir))
 lisp_files := $(wildcard *.el)
 lisp_LISP = $(lisp_files)
 EXTRA_DIST = $(lisp_files)
-MOSTLYCLEANFILES = *.elc
diff --git a/realgud/lang/java.el b/realgud/lang/java.el
index da0e54a..809b2d9 100644
--- a/realgud/lang/java.el
+++ b/realgud/lang/java.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2017 Free Software Foundation, Inc
+;; Copyright (C) 2017, 2019 Free Software Foundation, Inc
 
 ;; Author: Rocky Bernstein <address@hidden>
 
@@ -21,6 +21,7 @@
                       "realgud-")
 
 (declare-function realgud-goto-line-for-pt 'realgud-track)
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defun realgud-java-populate-command-keys (&optional map)
   "Bind the debugger function key layout used by many debuggers.
diff --git a/realgud/lang/js.el b/realgud/lang/js.el
index 71260d4..cb3d65c 100644
--- a/realgud/lang/js.el
+++ b/realgud/lang/js.el
@@ -20,6 +20,7 @@
                       "realgud-")
 
 (declare-function realgud-goto-line-for-pt 'realgud-track)
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defconst realgud:js-term-escape "[[0-9]+[GKJ]"
   "Escape sequence regular expression pattern trepanjs often puts
diff --git a/realgud/lang/perl.el b/realgud/lang/perl.el
index cad3374..62dc693 100644
--- a/realgud/lang/perl.el
+++ b/realgud/lang/perl.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2011, 2014, 2016 Free Software Foundation, Inc
+;; Copyright (C) 2011, 2014, 2016, 2019 Free Software Foundation, Inc
 
 ;; Author: Rocky Bernstein <address@hidden>
 
@@ -13,6 +13,7 @@
                       "realgud-")
 
 (declare-function realgud-goto-line-for-pt 'realgud-track)
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 ;;  Regular expression that describes a Perl Carp backtrace line.
 ;;  at /tmp/foo.pl line 7
diff --git a/realgud/lang/posix-shell.el b/realgud/lang/posix-shell.el
index 15c9fcc..ec9f3d3 100644
--- a/realgud/lang/posix-shell.el
+++ b/realgud/lang/posix-shell.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
+;; Copyright (C) 2015-2016, 2019 Free Software Foundation, Inc
 
 ;; Author: Rocky Bernstein <address@hidden>
 
@@ -26,6 +26,7 @@
 (require-relative-list '("../common/regexp" "../common/loc"
                         "../common/track" "../common/send")
                       "realgud-")
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defconst realgud-shell-backtrace-loc-pat
   (make-realgud-loc-pat
diff --git a/realgud/lang/python.el b/realgud/lang/python.el
index c47518f..1cb3ba4 100644
--- a/realgud/lang/python.el
+++ b/realgud/lang/python.el
@@ -21,6 +21,7 @@
                       "realgud-")
 
 (declare-function realgud-goto-line-for-pt 'realgud-track)
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defconst realgud-python-backtrace-loc-pat
   (make-realgud-loc-pat
diff --git a/realgud/lang/ruby.el b/realgud/lang/ruby.el
index 9e4699e..f94f274 100644
--- a/realgud/lang/ruby.el
+++ b/realgud/lang/ruby.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2010, 2014, 2016 Free Software Foundation, Inc
+;; Copyright (C) 2010, 2014, 2016, 2019 Free Software Foundation, Inc
 
 ;; Author: Rocky Bernstein <address@hidden>
 
@@ -13,6 +13,7 @@
                       "realgud-")
 
 (declare-function realgud-goto-line-for-pt 'realgud-track)
+(declare-function make-realgud-loc-pat 'realgud-regexp)
 
 (defconst realgud-rails-backtrace-loc-pat
   (make-realgud-loc-pat