[Emacs-diffs] /srv/bzr/emacs/trunk r112817: * lisp/pcmpl-gnu.el (pcomplete/tar): Check obsolete variable is bound.

[Glenn Morris]

------------------------------------------------------------
revno: 112817
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2013-06-01 13:10:08 -0700
message:
  * lisp/pcmpl-gnu.el (pcomplete/tar): Check obsolete variable is bound.
modified:
  lisp/ChangeLog
  lisp/pcmpl-gnu.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-01 20:08:52 +0000
+++ b/lisp/ChangeLog    2013-06-01 20:10:08 +0000
@@ -1,5 +1,7 @@
 2013-06-01  Glenn Morris  <address@hidden>
 
+       * 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):

=== modified file 'lisp/pcmpl-gnu.el'
--- a/lisp/pcmpl-gnu.el 2013-01-01 09:11:05 +0000
+++ b/lisp/pcmpl-gnu.el 2013-06-01 20:10:08 +0000
@@ -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)