From 03983bdcc404a0e813857be4f5abae4849b47d91 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 29 May 2013 00:18:09 -0700 Subject: idlwave-concatenate-rinfo-lists fix * progmodes/idlwave.el (idlwave-concatenate-rinfo-lists): Handle idlwave-last-system-routine-info-cons-cell being nil. This seems to prevent an error on typing `C-c TAB', idlwave-update-routine-info, in an idlwave buffer. --- lisp/progmodes/idlwave.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'lisp/progmodes/idlwave.el') diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index cbcd2f9d10e..ba9a632b949 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el @@ -5078,11 +5078,14 @@ Cache to disk for quick recovery." ;; The sequence here is important because earlier definitions shadow ;; later ones. We assume that if things in the buffers are newer ;; then in the shell of the system, they are meant to be different. - (setcdr idlwave-last-system-routine-info-cons-cell - (append idlwave-buffer-routines - idlwave-compiled-routines - idlwave-library-catalog-routines - idlwave-user-catalog-routines)) + (let ((temp (append idlwave-buffer-routines + idlwave-compiled-routines + idlwave-library-catalog-routines + idlwave-user-catalog-routines))) + ;; Not actually used for anything? + (if idlwave-last-system-routine-info-cons-cell + (setcdr idlwave-last-system-routine-info-cons-cell temp) + (setq idlwave-last-system-routine-info-cons-cell (cons temp nil)))) (setq idlwave-class-alist nil) ;; Give a message with information about the number of routines we have. -- cgit v1.2.1