Change ambiguities to specifics
This commit is contained in:
parent
b8260d0dd0
commit
732b09b4e1
1 changed files with 21 additions and 16 deletions
17
smog.el
17
smog.el
|
@ -150,13 +150,18 @@ Further details can be found in the =style(1)= man page.\n"
|
||||||
;; output the results and add references (in org-mode if it's available)
|
;; output the results and add references (in org-mode if it's available)
|
||||||
(with-current-buffer smog-output
|
(with-current-buffer smog-output
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
|
(if (buffer-modified-p smog-buffer)
|
||||||
|
(insert (format
|
||||||
|
"\nChanges to the file '%s' have not been saved. Analysis may be inaccurate.\n\n"
|
||||||
|
smog-target))
|
||||||
(insert (format "\n*Style analysis* of the file \[\[%s\]\[%s\]\] \n\n"
|
(insert (format "\n*Style analysis* of the file \[\[%s\]\[%s\]\] \n\n"
|
||||||
smog-target smog-buffer))
|
smog-target smog-buffer)))
|
||||||
(goto-char (point-max))
|
(goto-char (point-max))
|
||||||
(insert smog-reference)
|
(insert smog-reference)
|
||||||
(when (fboundp 'org-mode)
|
(when (fboundp 'org-mode)
|
||||||
(progn (org-mode)
|
(org-mode))
|
||||||
(org-update-radio-target-regexp)))))))
|
(when (fboundp 'org-update-radio-target-regexp)
|
||||||
|
(org-update-radio-target-regexp))))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun smog-check-region ()
|
(defun smog-check-region ()
|
||||||
|
@ -185,9 +190,9 @@ Further details can be found in the =style(1)= man page.\n"
|
||||||
(goto-char (point-max))
|
(goto-char (point-max))
|
||||||
(insert smog-reference)
|
(insert smog-reference)
|
||||||
(when (fboundp 'org-mode)
|
(when (fboundp 'org-mode)
|
||||||
(progn (org-mode)
|
(org-mode))
|
||||||
(org-update-radio-target-regexp)))))))
|
(when (fboundp 'org-update-radio-target-regexp)
|
||||||
|
(org-update-radio-target-regexp))))))
|
||||||
|
|
||||||
(provide 'smog)
|
(provide 'smog)
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue