Merge from emacs-23; up to 2010-06-11T18:51:00Z!juri@jurta.org.

[gnu-emacs] / lisp / dirtrack.el

diff --git a/lisp/dirtrack.el b/lisp/dirtrack.el
index b30b7ac146fe29c9a4c85dc42fd920cc524ab69d..c3dfc747772a3b4b773766f83180904c844020b5 100644 (file)
--- a/lisp/dirtrack.el
+++ b/lisp/dirtrack.el
@@ -230,9 +230,9 @@ function `dirtrack-debug-mode' to turn on debugging output."
     (let (prompt-path
          (current-dir default-directory)
          (dirtrack-regexp    (nth 0 dirtrack-list))
-         (match-num          (nth 1 dirtrack-list))
+         (match-num          (nth 1 dirtrack-list)))
           ;; Currently unimplemented, it seems.  --Stef
-         (multi-line         (nth 2 dirtrack-list)))
+         ;; (multi-line      (nth 2 dirtrack-list)))
       (save-excursion
         ;; No match
         (if (not (string-match dirtrack-regexp input))