comparison lisp/cedet/semantic/lex-spp.el @ 108934:e039f2da3d28

Fix to semantic-lex-spp-table-write-slot-value (Bug#6324). * cedet/semantic/lex-spp.el (semantic-lex-spp-table-write-slot-value): Instead of erroring on invalid values during save, just save a nil (Bug#6324).

108933:b465aa3255ed

    (dolist (sym value)
      (princ "(")
      (prin1 (car sym))
      (let* ((first (car (cdr sym)))
	     (rest (cdr sym)))
	(when (not (listp first))
	  (error "Error in macro \"%s\"" (car sym)))
	(when (eq (car first) 'spp-arg-list)
	  (princ " ")
	  (prin1 first)
	  (setq rest (cdr rest))
	  )

	(when rest
	  (princ " . ")
	  (let ((len (length (cdr rest))))
	    (cond ((< len 2)
		   (condition-case nil
		       (prin1 rest)
		     (error
		      (princ "nil ;; Error writing macro\n"))))
		  ((< len semantic-lex-spp-macro-max-length-to-save)
		   (princ "\n              ")
		   (condition-case nil
		       (prin1 rest)
		     (error
		      (princ "nil ;; Error writing macro\n          ")))
		   )
		  (t ;; Too Long!
		   (princ "nil ;; Too Long!\n          ")
		   ))))
	)
      (princ ")\n          ")
      )
    (princ ")\n"))
)

;;; MACRO TABLE DEBUG
;;
(defun semantic-lex-spp-describe (&optional buffer)
  "Describe the current list of spp macros for BUFFER.

108934:e039f2da3d28

    (dolist (sym value)
      (princ "(")
      (prin1 (car sym))
      (let* ((first (car (cdr sym)))
	     (rest (cdr sym)))
	(if (not (listp first))
	    (insert "nil ;; bogus macro found.\n")
	  (when (eq (car first) 'spp-arg-list)
	    (princ " ")
	    (prin1 first)
	    (setq rest (cdr rest)))

	  (when rest
	    (princ " . ")
	    (let ((len (length (cdr rest))))
	      (cond ((< len 2)
		     (condition-case nil
			 (prin1 rest)
		       (error
			(princ "nil ;; Error writing macro\n"))))
		    ((< len semantic-lex-spp-macro-max-length-to-save)
		     (princ "\n              ")
		     (condition-case nil
			 (prin1 rest)
		       (error
			(princ "nil ;; Error writing macro\n          "))))
		    (t ;; Too Long!
		     (princ "nil ;; Too Long!\n          ")))))))
      (princ ")\n          "))
    (princ ")\n")))

;;; MACRO TABLE DEBUG
;;
(defun semantic-lex-spp-describe (&optional buffer)
  "Describe the current list of spp macros for BUFFER.