diff options
Diffstat (limited to 'lisp/xdg.el')
-rw-r--r-- | lisp/xdg.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/xdg.el b/lisp/xdg.el index 0f0df53d27e..e5165bbd86a 100644 --- a/lisp/xdg.el +++ b/lisp/xdg.el @@ -208,8 +208,8 @@ Optional argument GROUP defaults to the string \"Desktop Entry\"." "Partition VALUE into elements delimited by unescaped semicolons." (let (res) (setq value (string-trim-left value)) - (dolist (x (split-string (replace-regexp-in-string "\\\\;" "\0" value) ";")) - (push (replace-regexp-in-string "\0" ";" x) res)) + (dolist (x (split-string (string-replace "\\;" "\0" value) ";")) + (push (string-replace "\0" ";" x) res)) (when (null (string-match-p "[^[:blank:]]" (car res))) (pop res)) (nreverse res))) @@ -231,7 +231,7 @@ admin config, and finally system cached associations." (desktop (getenv "XDG_CURRENT_DESKTOP")) res) (when desktop - (setq desktop (format "%s-mimeapps.list" desktop))) + (setq desktop (list (format "%s-mimeapps.list" desktop)))) (dolist (name (cons "mimeapps.list" desktop)) (push (expand-file-name name (xdg-config-home)) res) (push (expand-file-name (format "applications/%s" name) (xdg-data-home)) @@ -256,8 +256,8 @@ which is expected to be ordered by priority as in (when (file-readable-p f) (insert-file-contents-literally f nil nil nil t) (goto-char (point-min)) - (let (end) - (while (not (or (eobp) end)) + (let () ;; end + (while (not (or (eobp))) ;; end (if (= (following-char) ?\[) (progn (setq sec (char-after (1+ (point)))) (forward-line)) |