Mercurial > emacs
comparison lisp/textmodes/tildify.el @ 49599:5ade352e8d1c
Trailing whitespace deleted.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 04 Feb 2003 13:30:45 +0000 |
parents | 30dfcb85b1ca |
children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
49598:0d8b17d428b5 | 49599:5ade352e8d1c |
---|---|
105 | 105 |
106 The form (MAJOR-MODE . SYMBOL) defines alias item for MAJOR-MODE. For this | 106 The form (MAJOR-MODE . SYMBOL) defines alias item for MAJOR-MODE. For this |
107 mode, the item for the mode SYMBOL is looked up in the alist instead." | 107 mode, the item for the mode SYMBOL is looked up in the alist instead." |
108 :group 'tildify | 108 :group 'tildify |
109 :type '(repeat (cons symbol (choice string symbol)))) | 109 :type '(repeat (cons symbol (choice string symbol)))) |
110 | 110 |
111 (defcustom tildify-ignored-environments-alist | 111 (defcustom tildify-ignored-environments-alist |
112 '((latex-mode | 112 '((latex-mode |
113 ("\\\\\\\\" . "") ; do not remove this | 113 ("\\\\\\\\" . "") ; do not remove this |
114 ("\\\\begin{verbatim}" . "\\\\end{verbatim}") | 114 ("\\\\begin{verbatim}" . "\\\\end{verbatim}") |
115 ("\\\\verb\\*?\\(.\\)" . (1)) | 115 ("\\\\verb\\*?\\(.\\)" . (1)) |
224 (format "End of environment not found: %s" end-env)) | 224 (format "End of environment not found: %s" end-env)) |
225 (setq finish t)))))) | 225 (setq finish t)))))) |
226 ;; No ignored environments, tildify directly | 226 ;; No ignored environments, tildify directly |
227 (tildify-tildify beg end ask))) | 227 (tildify-tildify beg end ask))) |
228 (message (format "%d spaces replaced." tildify-count))) | 228 (message (format "%d spaces replaced." tildify-count))) |
229 | 229 |
230 ;;;###autoload | 230 ;;;###autoload |
231 (defun tildify-buffer () | 231 (defun tildify-buffer () |
232 "Add hard spaces in the current buffer. | 232 "Add hard spaces in the current buffer. |
233 See variables `tildify-pattern-alist', `tildify-string-alist', and | 233 See variables `tildify-pattern-alist', `tildify-string-alist', and |
234 `tildify-ignored-environments-alist' for information about configuration | 234 `tildify-ignored-environments-alist' for information about configuration |
260 (assoc t mode-alist))))) | 260 (assoc t mode-alist))))) |
261 (if (and alist | 261 (if (and alist |
262 (symbolp alist)) | 262 (symbolp alist)) |
263 (tildify-mode-alist mode-alist alist) | 263 (tildify-mode-alist mode-alist alist) |
264 alist))) | 264 alist))) |
265 | 265 |
266 (defun tildify-find-env (regexp) | 266 (defun tildify-find-env (regexp) |
267 "Find environment using REGEXP. | 267 "Find environment using REGEXP. |
268 Return regexp for the end of the environment or nil if no environment was | 268 Return regexp for the end of the environment or nil if no environment was |
269 found." | 269 found." |
270 ;; Find environment | 270 ;; Find environment |