file-name-concat is not error free

* lisp/emacs-lisp/byte-opt.el (side-effect-free-fns): Declare
file-name-concat as side-effect free.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index ad0273dc1536c3f40fdc0d6138221d26d4665df6..96072ea1b551410e523dd8b58c044f90a16d83b8 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1348,6 +1348,7 @@ See Info node `(elisp) Integer Basics'."
         elt encode-char exp expt encode-time error-message-string
         fboundp fceiling featurep ffloor
         file-directory-p file-exists-p file-locked-p file-name-absolute-p
+         file-name-concat
         file-newer-than-file-p file-readable-p file-symlink-p file-writable-p
         float float-time floor format format-time-string frame-first-window
         frame-root-window frame-selected-window
@@ -1405,7 +1406,6 @@ See Info node `(elisp) Integer Basics'."
         current-buffer current-global-map current-indentation
         current-local-map current-minor-mode-maps current-time
         eobp eolp eq equal eventp
-         file-name-concat
         fixnump floatp following-char framep
         get-largest-window get-lru-window
         hash-table-p