diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-08-06 17:53:47 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-08-06 17:53:47 +0200 |
| commit | 994b4e9a938d17d35462a8da3929fea267563c70 (patch) | |
| tree | ad8e7d6365f1210229ad582a30987d11cb4f24e6 /lisp/mastodon-media.el | |
| parent | 20d0f4ae848a2b8bc3bf8a63c409871d0e7991ff (diff) | |
re-write all (if x y "") clauses as (when x y), if poss.
we can use when inside concat, but not inside insert, nor in strings/args headed for
format or propertize.
Diffstat (limited to 'lisp/mastodon-media.el')
| -rw-r--r-- | lisp/mastodon-media.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el index 9dc8517..8f8937c 100644 --- a/lisp/mastodon-media.el +++ b/lisp/mastodon-media.el @@ -500,9 +500,8 @@ SENSITIVE is a flag from the item's JSON data." (substitute-command-keys (concat "\\`RET'/\\`i': load full image (prefix: copy URL), \\`+'/\\`-': zoom,\ \\`r': rotate, \\`o': save preview" - (if (not (eq sensitive :json-false)) - ", \\`S': toggle sensitive media" - "")))) + (when (not (eq sensitive :json-false)) + ", \\`S': toggle sensitive media")))) (help-echo (if caption (concat help-echo-base "\n\"" caption "\"") |