support raw r""" syntax for docstrings

This commit is contained in:
Glyph 2014-12-10 13:15:44 +01:00
parent cede45a6e8
commit 5068940366

View file

@ -19,8 +19,11 @@
(throw 'not-a-string nil)))) (throw 'not-a-string nil))))
(string-start (+ (goto-char (nth 8 syx)) (string-start (+ (goto-char (nth 8 syx))
3)) 3))
(rawchar (if (eql (char-before (point)) ?r)
1
0))
;; at the beginning of the screen here ;; at the beginning of the screen here
(indent-count (- (- string-start 3) (indent-count (- (- string-start (+ rawchar 3))
(save-excursion (save-excursion
(beginning-of-line) (beginning-of-line)
(point)))) (point))))