(error nil))))
(when location
(with-current-buffer (car location)
- (goto-char (cdr location))
+ (when (cdr location)
+ (goto-char (cdr location)))
(when (re-search-backward
"^;;; Generated autoloads from \\(.*\\)" nil t)
(setq file-name (match-string 1)))))))
(format "use `%s' instead." (car obsolete))))
(terpri))
(when safe-var
- (princ "\n\nThis variable is safe as a file local variable ")
+ (princ "This variable is safe as a file local variable ")
(princ "if its value\nsatisfies the predicate ")
(princ (if (byte-code-function-p safe-var)
"which is byte-compiled expression.\n"