branch: externals/realgud
commit 7c0acdcd068ae0661fd18666a5aa4b6f45e73a2a
Author: rocky <ro...@gnu.org>
Commit: rocky <ro...@gnu.org>
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 <ro...@gnu.org>
@@ -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 <ro...@gnu.org>
@@ -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 <ro...@gnu.org>
@@ -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 <ro...@gnu.org>
;; 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 <ro...@gnu.org>
@@ -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 <ro...@gnu.org>
@@ -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 <ro...@gnu.org>
@@ -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 <ro...@gnu.org>
@@ -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 <ro...@gnu.org>
@@ -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 <ro...@gnu.org>
@@ -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
