builtin setopt local_options no_err_return no_err_exit extended_glob no_warn_create_global typeset_silent no_short_loops unset

.zi-add-report "${ZI[CUR_USPL2]}" "Zstyle $*"

# Remember in order to perform the actual zstyle call.

typeset -a pos

pos=( "$@" )

# Check if we have regular zstyle call, i.e. with no options or with -e.

local -a opts

zparseopts -a opts -D ${(s::):-eLdgabsTtm}

if [[ ${#opts} -eq 0 || ( ${#opts} -eq 1 && ${+opts[(r)-e]} = 1 ) ]]; then

# Have to quote $1, then $2, then concatenate them, then quote them again.

local pattern="${(q)1}" style="${(q)2}"

local ps="$pattern $style"

ps="${(q)ps}"

# Remember the zstyle, only when load is in progress (it can be dstart that leads execution here).

[[ -n ${ZI[CUR_USPL2]} ]] && ZI[ZSTYLES__${ZI[CUR_USPL2]}]+="$ps "

# Remember for dtrace.

[[ ${ZI[DTRACE]} = 1 ]] && ZI[ZSTYLES___dtrace/_dtrace]+=$ps

else

if [[ ! ${#opts[@]} = 1 && ( ${+opts[(r)-s]} = 1 || ${+opts[(r)-b]} = 1 || ${+opts[(r)-a]} = 1 || ${+opts[(r)-t]} = 1 || ${+opts[(r)-T]} = 1 || ${+opts[(r)-m]} = 1 ) ]]; then

.zi-add-report "${ZI[CUR_USPL2]}" "Warning: last zstyle used non-typical options: ${opts[*]}"

fi

fi

# Actual zstyle.

builtin zstyle "${pos[@]}"

return $? # testable

builtin setopt local_options no_err_return no_err_exit extended_glob warn_create_global typeset_silent no_short_loops unset

.zi-add-report "${ZI[CUR_USPL2]}" "Alias $*"

# Remember to perform the actual alias call.

typeset -a pos

pos=( "$@" )

local -a opts

zparseopts -a opts -D ${(s::):-gs}

local a quoted tmp

for a in "$@"; do

local aname="${a%%[=]*}"

local avalue="${a#*=}"

# Check if alias is to be redefined.

(( ${+aliases[$aname]} )) && .zi-add-report "${ZI[CUR_USPL2]}" "Warning: redefining alias \`${aname}', previous value: ${aliases[$aname]}"

local bname=${(q)aliases[$aname]}

aname="${(q)aname}"

if (( ${+opts[(r)-s]} )); then

tmp=-s

tmp="${(q)tmp}"

quoted="$aname $bname $tmp"

elif (( ${+opts[(r)-g]} )); then

tmp=-g

tmp="${(q)tmp}"

quoted="$aname $bname $tmp"

else

quoted="$aname $bname"

fi

quoted="${(q)quoted}"

# Remember the alias, only when load is in progress (it can be dstart that leads execution here).

[[ -n ${ZI[CUR_USPL2]} ]] && ZI[ALIASES__${ZI[CUR_USPL2]}]+="$quoted "

# Remember for dtrace.

[[ ${ZI[DTRACE]} = 1 ]] && ZI[ALIASES___dtrace/_dtrace]+="$quoted "

done

# Actual alias.

builtin alias "${pos[@]}"

return $? # testable

builtin setopt local_options no_err_return no_err_exit extended_glob warn_create_global typeset_silent no_short_loops unset

.zi-add-report "${ZI[CUR_USPL2]}" "Saving \`compdef $*' for replay"

ZI_COMPDEF_REPLAY+=( "${(j: :)${(q)@}}" )

return 0 # testable

builtin setopt local_options no_err_return no_err_exit extended_glob warn_create_global typeset_silent no_short_loops unset no_aliases

local mode="$1"

# Disable temporary substituting of functions only once.

# Disable temporary substituting of functions only the way it was enabled first.

(( ZI[TMP_SUBST_DEPTH] > 0 )) && (( -- ZI[TMP_SUBST_DEPTH] ))

[[ ${ZI[TMP_SUBST]} = inactive || ${ZI[TMP_SUBST]} != $mode ]] && return 0

# An inner load of the same mode must not tear down what the outer one still

# needs.

(( ZI[TMP_SUBST_DEPTH] > 0 )) && return 0

ZI[TMP_SUBST]=inactive

if [[ $mode != compdef ]]; then

# 0. Unfunction autoload.

(( ${+ZI[bkp-autoload]} )) && functions[autoload]="${ZI[bkp-autoload]}" || unfunction autoload

fi

# E. Restore original compdef if it existed.

(( ${+ZI[bkp-compdef]} )) && functions[compdef]="${ZI[bkp-compdef]}" || unfunction compdef

# Restore the possible source function.

(( ${+ZI[bkp-source]} )) && functions[source]="${ZI[bkp-source]}" || unfunction source 2>/dev/null

(( ${+ZI[bkp-.]} )) && functions[.]="${ZI[bkp-.]}" || unfunction . 2> /dev/null

# Light and compdef temporary substituting of functions stops here.

[[ ( $mode = light && ${+ICE[trackbinds]} -eq 0 ) || $mode = compdef ]] && return 0

# Unfunction temporary substituting of functions functions.

# A.

(( ${+ZI[bkp-bindkey]} )) && functions[bindkey]="${ZI[bkp-bindkey]}" || unfunction bindkey

# When `zi light -b ...' or when `zi ice trackbinds ...; zi light ...'.

[[ $mode = light-b || ( $mode = light && ${+ICE[trackbinds]} -eq 1 ) ]] && return 0

# B.

(( ${+ZI[bkp-zstyle]} )) && functions[zstyle]="${ZI[bkp-zstyle]}" || unfunction zstyle

# C.

(( ${+ZI[bkp-alias]} )) && functions[alias]="${ZI[bkp-alias]}" || unfunction alias

# D.

(( ${+ZI[bkp-zle]} )) && functions[zle]="${ZI[bkp-zle]}" || unfunction zle

return 0