`(and ,el-search-this-expression-identifier ,pattern))
(defun el-search--search-pattern (pattern &optional noerror)
`(and ,el-search-this-expression-identifier ,pattern))
(defun el-search--search-pattern (pattern &optional noerror)
(or (not (boundp pattern))
(not (eq (symbol-value pattern) pattern))))
(error "Please don't forget the quote when searching for a symbol"))
(or (not (boundp pattern))
(not (eq (symbol-value pattern) pattern))))
(error "Please don't forget the quote when searching for a symbol"))
(barf-if-buffer-read-only)
(let* ((from (el-search--read-pattern "Replace from: " nil initial-contents))
(to (el-search--read-pattern "Replace with result of evaluation of: " from)))
(barf-if-buffer-read-only)
(let* ((from (el-search--read-pattern "Replace from: " nil initial-contents))
(to (el-search--read-pattern "Replace with result of evaluation of: " from)))