mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 06:31:34 -08:00
Code Issues Projects Releases Wiki Activity

(abbrev-symbol): Correct let->let*.

Browse source 
(abbrev--before-point): Only use abbrev-start-location if before point.
This commit is contained in:
Stefan Monnier 2007-10-31 15:47:02 +00:00
parent 26e966803c
commit 2b86bfb1fd
2 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-10-31 Stefan Monnier <monnier@iro.umontreal.ca>
* abbrev.el (abbrev-symbol): Correct let->let*.
(abbrev--before-point): Only use abbrev-start-location if before point.
2007-10-31 Juanma Barranquero <lekktu@gmail.com>
* strokes.el (strokes-alphabetic-lessp): Simplify. Doc fix.

11
lisp/abbrev.el
View file

@ -649,8 +649,8 @@ The default is to try buffer's mode-specific abbrev table, then global table."
(let ((tables (abbrev--active-tables table))
sym)
(while (and tables (not (symbol-value sym)))
(let ((table (pop tables))
(case-fold (not (abbrev-table-get table :case-fixed))))
(let* ((table (pop tables))
(case-fold (not (abbrev-table-get table :case-fixed))))
(setq tables (append (abbrev-table-get table :parents) tables))
;; In case the table doesn't set :case-fixed but some of the
;; abbrevs do, we have to be careful.
@ -693,9 +693,10 @@ then ABBREV is looked up in that table only."
(delete-region start (1+ start)))
(skip-syntax-backward " ")
(setq end (point))
(setq name (buffer-substring start end))
(goto-char pos) ; Restore point.
(list (abbrev-symbol name tables) name start end))
(when (> end start)
(setq name (buffer-substring start end))
(goto-char pos) ; Restore point.
(list (abbrev-symbol name tables) name start end)))
(while (and tables (not (car res)))
(let* ((table (pop tables))