408 |
(defun mail-abbrev-make-syntax-table () |
(defun mail-abbrev-make-syntax-table () |
409 |
(make-local-variable 'mail-abbrev-syntax-table) |
(make-local-variable 'mail-abbrev-syntax-table) |
410 |
(unless mail-abbrev-syntax-table |
(unless mail-abbrev-syntax-table |
411 |
(let ((tab (copy-syntax-table old-syntax-table)) |
(let ((tab (copy-syntax-table (syntax-table))) |
412 |
(_ (aref (standard-syntax-table) ?_)) |
(_ (aref (standard-syntax-table) ?_)) |
413 |
(w (aref (standard-syntax-table) ?w))) |
(w (aref (standard-syntax-table) ?w))) |
414 |
(map-char-table |
(map-char-table |