X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/8546720e6f25eb988e8215de6678798053031440..ff9ddda9069da6b4dbcc64615cb4cab9a1f4f8b7:/lisp/obsolete/complete.el

diff --git a/lisp/obsolete/complete.el b/lisp/obsolete/complete.el
index 925361566f..27ba10f626 100644
--- a/lisp/obsolete/complete.el
+++ b/lisp/obsolete/complete.el
@@ -1,6 +1,6 @@
 ;;; complete.el --- partial completion mechanism plus other goodies
 
-;; Copyright (C) 1990-1993, 1999-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1990-1993, 1999-2016 Free Software Foundation, Inc.
 
 ;; Author: Dave Gillespie <daveg@synaptics.com>
 ;; Keywords: abbrev convenience
@@ -963,7 +963,7 @@ or properties are considered."
  Environment vars are converted to their values."
    (interactive)
    (let* ((end (point))
-          (beg (if (re-search-backward "[^\\][ \t\n\"\`\'][^ \t\n\"\`\']"
+          (beg (if (re-search-backward "[^\\][ \t\n\"`'][^ \t\n\"`']"
 				       (point-min) t)
                    (+ (point) 2)
                    (point-min)))
@@ -1074,7 +1074,7 @@ absolute rather than relative to some directory on the SEARCH-PATH."
 	  (setq search-path
 		(mapcar (lambda (dir) (concat dir subdir))
 			search-path)
-		file ))
+		file nil))
       ;; Make list of completions in each directory on search-path
       (while search-path
 	(let* ((dir (car search-path))