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 |