zzkt/smog
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Change ambiguities to specifics

Browse source
This commit is contained in:
nik gaffney 2020-02-10 10:01:35 +11:00
parent b8260d0dd0
commit 732b09b4e1
1 changed files with 21 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
smog.el
View file

@ -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)