From: Glenn Morris Date: Sat, 1 Jun 2013 20:10:08 +0000 (-0700) Subject: * lisp/pcmpl-gnu.el (pcomplete/tar): Check obsolete variable is bound. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~96 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9133b82e6f850b96eeb8c1e2c62fbeb52f111673;p=emacs.git * lisp/pcmpl-gnu.el (pcomplete/tar): Check obsolete variable is bound. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a7ac80ad774..269deb86abe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2013-06-01 Glenn Morris + * pcmpl-gnu.el (pcomplete/tar): Check obsolete variable is bound. + Plain (f)boundp silences compilation warnings since Emacs 22.1. * progmodes/cc-cmds.el (delete-forward-p): * progmodes/cc-defs.el (buffer-syntactic-context-depth): diff --git a/lisp/pcmpl-gnu.el b/lisp/pcmpl-gnu.el index 91b146fdc78..fb31984facc 100644 --- a/lisp/pcmpl-gnu.el +++ b/lisp/pcmpl-gnu.el @@ -158,7 +158,8 @@ "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)