Mercurial > emacs
comparison lisp/abbrev.el @ 26079:bc18b027a049
(add-abbrev, inverse-add-abbrev, expand-region-abbrevs): Remove
properties from buffer text.
author | Dave Love <fx@gnu.org> |
---|---|
date | Mon, 18 Oct 1999 21:28:04 +0000 |
parents | 5f4d21e85cf6 |
children | a552a942b327 |
comparison
equal
deleted
inserted
replaced
26078:1dfff19134ab | 26079:bc18b027a049 |
---|---|
223 (interactive "p") | 223 (interactive "p") |
224 (add-abbrev global-abbrev-table "Global" arg)) | 224 (add-abbrev global-abbrev-table "Global" arg)) |
225 | 225 |
226 (defun add-abbrev (table type arg) | 226 (defun add-abbrev (table type arg) |
227 (let ((exp (and (>= arg 0) | 227 (let ((exp (and (>= arg 0) |
228 (buffer-substring | 228 (buffer-substring-no-properties |
229 (point) | 229 (point) |
230 (if (= arg 0) (mark) | 230 (if (= arg 0) (mark) |
231 (save-excursion (forward-word (- arg)) (point)))))) | 231 (save-excursion (forward-word (- arg)) (point)))))) |
232 name) | 232 name) |
233 (setq name | 233 (setq name |
264 | 264 |
265 (defun inverse-add-abbrev (table type arg) | 265 (defun inverse-add-abbrev (table type arg) |
266 (let (name nameloc exp) | 266 (let (name nameloc exp) |
267 (save-excursion | 267 (save-excursion |
268 (forward-word (- arg)) | 268 (forward-word (- arg)) |
269 (setq name (buffer-substring (point) (progn (forward-word 1) | 269 (setq name (buffer-substring-no-properties |
270 (setq nameloc (point)))))) | 270 (point) (progn (forward-word 1) (setq nameloc (point)))))) |
271 (set-text-properties 0 (length name) nil name) | 271 (set-text-properties 0 (length name) nil name) |
272 (setq exp (read-string (format "%s expansion for \"%s\": " | 272 (setq exp (read-string (format "%s expansion for \"%s\": " |
273 type name) nil nil nil t)) | 273 type name) nil nil nil t)) |
274 (if (or (not (abbrev-expansion name table)) | 274 (if (or (not (abbrev-expansion name table)) |
275 (y-or-n-p (format "%s expands to \"%s\"; redefine? " | 275 (y-or-n-p (format "%s expands to \"%s\"; redefine? " |
304 (while (and (not (eobp)) | 304 (while (and (not (eobp)) |
305 (progn (forward-word 1) | 305 (progn (forward-word 1) |
306 (<= (setq pnt (point)) (- (point-max) lim)))) | 306 (<= (setq pnt (point)) (- (point-max) lim)))) |
307 (if (abbrev-expansion | 307 (if (abbrev-expansion |
308 (setq string | 308 (setq string |
309 (buffer-substring | 309 (buffer-substring-no-properties |
310 (save-excursion (forward-word -1) (point)) | 310 (save-excursion (forward-word -1) (point)) |
311 pnt))) | 311 pnt))) |
312 (if (or noquery (y-or-n-p (format "Expand `%s'? " string))) | 312 (if (or noquery (y-or-n-p (format "Expand `%s'? " string))) |
313 (expand-abbrev))))))) | 313 (expand-abbrev))))))) |
314 | 314 |