107 |
mode, the item for the mode SYMBOL is looked up in the alist instead." |
mode, the item for the mode SYMBOL is looked up in the alist instead." |
108 |
:group 'tildify |
:group 'tildify |
109 |
:type '(repeat (cons symbol (choice string symbol)))) |
:type '(repeat (cons symbol (choice string symbol)))) |
110 |
|
|
111 |
(defcustom tildify-ignored-environments-alist |
(defcustom tildify-ignored-environments-alist |
112 |
'((latex-mode |
'((latex-mode |
113 |
("\\\\\\\\" . "") ; do not remove this |
("\\\\\\\\" . "") ; do not remove this |
226 |
;; No ignored environments, tildify directly |
;; No ignored environments, tildify directly |
227 |
(tildify-tildify beg end ask))) |
(tildify-tildify beg end ask))) |
228 |
(message (format "%d spaces replaced." tildify-count))) |
(message (format "%d spaces replaced." tildify-count))) |
229 |
|
|
230 |
;;;###autoload |
;;;###autoload |
231 |
(defun tildify-buffer () |
(defun tildify-buffer () |
232 |
"Add hard spaces in the current buffer. |
"Add hard spaces in the current buffer. |
262 |
(symbolp alist)) |
(symbolp alist)) |
263 |
(tildify-mode-alist mode-alist alist) |
(tildify-mode-alist mode-alist alist) |
264 |
alist))) |
alist))) |
265 |
|
|
266 |
(defun tildify-find-env (regexp) |
(defun tildify-find-env (regexp) |
267 |
"Find environment using REGEXP. |
"Find environment using REGEXP. |
268 |
Return regexp for the end of the environment or nil if no environment was |
Return regexp for the end of the environment or nil if no environment was |