;;; pcmpl-gnu.el --- completions for GNU project tools -*- lexical-binding: t -*-
-;; Copyright (C) 1999-2012 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2014 Free Software Foundation, Inc.
;; Package: pcomplete
"Completion for the GNU tar utility."
;; options that end in an equal sign will want further completion...
(let (saw-option complete-within)
- (let ((pcomplete-suffix-list (cons ?= pcomplete-suffix-list)))
+ (let ((pcomplete-suffix-list (if (boundp 'pcomplete-suffix-list)
+ (cons ?= pcomplete-suffix-list))))
(while (pcomplete-match "^-" 0)
(setq saw-option t)
(if (pcomplete-match "^--" 0)