minor cleanup

This commit is contained in:
Mark Oteiza
2014-12-28 12:46:03 -05:00
parent e52a5da19e
commit d58763e224

View File

@@ -68,7 +68,7 @@ the value."
(save-excursion (save-excursion
(let ((break "\\\\\n") (let ((break "\\\\\n")
end) end)
(while (progn (goto-char (- (line-end-position) 1)) (while (progn (goto-char (1- (line-end-position)))
(looking-at break)) (looking-at break))
(forward-line)) (forward-line))
(setq end (line-end-position)) (setq end (line-end-position))
@@ -102,7 +102,7 @@ current unit file, defaulting to the link under point, if any."
("file" (find-file (url-filename link))) ("file" (find-file (url-filename link)))
("man" (url-man link)) ("man" (url-man link))
("info" (url-info link)) ("info" (url-info link))
((or "http" "https") (apply systemd-browse-url-function `(,url))) ((or "http" "https") (funcall systemd-browse-url-function url))
(_ (user-error "Invalid link"))))) (_ (user-error "Invalid link")))))
(defvar systemd-mode-syntax-table (defvar systemd-mode-syntax-table