Skip to content

Commit c18a3ac

Browse files
committed
Fix package-lint and checkdoc issues
1 parent 3ce8c13 commit c18a3ac

File tree

1 file changed

+8
-11
lines changed

1 file changed

+8
-11
lines changed

json-mode.el

Lines changed: 8 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
;;; json-mode.el --- Major mode for editing JSON files.
1+
;;; json-mode.el --- Major mode for editing JSON files
22

33
;; Copyright (C) 2011-2014 Josh Johnston
44

@@ -61,13 +61,10 @@ Return the new `auto-mode-alist' entry"
6161
new-entry))
6262

6363
;;;###autoload
64-
(defcustom json-mode-auto-mode-list '(
65-
".babelrc"
64+
(defcustom json-mode-auto-mode-list '(".babelrc"
6665
".bowerrc"
67-
"composer.lock"
68-
)
69-
"List of filename as string to pass for the JSON entry of
70-
`auto-mode-alist'.
66+
"composer.lock")
67+
"List of filenames to pass for the JSON entry of `auto-mode-alist'.
7168
7269
Note however that custom `json-mode' entries in `auto-mode-alist'
7370
won’t be affected."
@@ -111,13 +108,12 @@ This function calls `json-mode--update-auto-mode' to change the
111108
(list json-mode-quoted-key-re 1 font-lock-keyword-face)
112109
(list json-mode-quoted-string-re 1 font-lock-string-face)
113110
(list json-mode-keyword-re 1 font-lock-constant-face)
114-
(list json-mode-number-re 1 font-lock-constant-face)
115-
)
111+
(list json-mode-number-re 1 font-lock-constant-face))
116112
"Level one font lock.")
117113

118114
;;;###autoload
119115
(define-derived-mode json-mode javascript-mode "JSON"
120-
"Major mode for editing JSON files"
116+
"Major mode for editing JSON files."
121117
(setq font-lock-defaults '(json-font-lock-keywords-1 t)))
122118

123119
;; Well formatted JSON files almost always begin with “{” or “[”.
@@ -126,14 +122,15 @@ This function calls `json-mode--update-auto-mode' to change the
126122

127123
;;;###autoload
128124
(defun json-mode-show-path ()
129-
"Print the path to the node at point to the minibuffer, and yank to the kill ring."
125+
"Print the path to the node at point to the minibuffer."
130126
(interactive)
131127
(message (jsons-print-path)))
132128

133129
(define-key json-mode-map (kbd "C-c C-p") 'json-mode-show-path)
134130

135131
;;;###autoload
136132
(defun json-mode-kill-path ()
133+
"Add the path to the node at point to the kill ring."
137134
(interactive)
138135
(kill-new (jsons-print-path)))
139136

0 commit comments

Comments
 (0)