Lines Matching +defs:last +defs:message
9 ;; Lindberg's last update version: 5.7
293 (defvar dabbrev--last-obarray nil)
296 (defvar dabbrev--last-table nil)
299 (defvar dabbrev--last-abbreviation nil)
301 ;; Location last abbreviation began
302 (defvar dabbrev--last-abbrev-location nil)
304 ;; Direction of last dabbrevs search
305 (defvar dabbrev--last-direction 0)
308 (defvar dabbrev--last-expansion nil)
310 ;; Location the last expansion was found.
311 (defvar dabbrev--last-expansion-location nil)
316 ;; The buffer we looked in last, not counting the current buffer.
317 (defvar dabbrev--last-buffer nil)
319 ;; The buffer we found the expansion last time.
320 (defvar dabbrev--last-buffer-found nil)
322 ;; The buffer we last did a completion in.
323 (defvar dabbrev--last-completion-buffer nil)
327 (defvar dabbrev--last-case-pattern nil)
388 (my-obarray dabbrev--last-obarray)
394 (setq dabbrev--last-abbreviation abbrev)
424 (setq dabbrev--last-obarray my-obarray)
425 (setq dabbrev--last-completion-buffer (current-buffer))
438 (message "Repeat `%s' to see all completions"
440 (message "The only possible completion"))
444 (message "Making completion list...")
448 (message "Making completion list...done")))
450 (message nil))))
482 (markerp dabbrev--last-abbrev-location)
483 (marker-position dabbrev--last-abbrev-location)
484 (or (eq last-command this-command)
486 (= dabbrev--last-abbrev-location
488 ;; Find a different expansion for the same abbrev as last time.
490 (setq abbrev dabbrev--last-abbreviation)
491 (setq old dabbrev--last-expansion)
492 (setq direction dabbrev--last-direction))
496 (markerp dabbrev--last-abbrev-location)
497 (marker-position dabbrev--last-abbrev-location)
498 (= (point) (1+ dabbrev--last-abbrev-location)))
505 (if dabbrev--last-buffer
506 (set-buffer dabbrev--last-buffer))
507 ;; Find the end of the last "expansion" word.
508 (if (or (eq dabbrev--last-direction 1)
509 (and (eq dabbrev--last-direction 0)
510 (< dabbrev--last-expansion-location (point))))
511 (setq dabbrev--last-expansion-location
512 (+ dabbrev--last-expansion-location
513 (length dabbrev--last-expansion))))
514 (goto-char dabbrev--last-expansion-location)
520 dabbrev--last-expansion-location (point)))
523 (setq dabbrev--last-expansion-location (point))))
524 ;; Indicate that dabbrev--last-expansion-location is
526 (setq dabbrev--last-direction -1))
561 (if (not (or (eq dabbrev--last-buffer dabbrev--last-buffer-found)
564 (message "Expansion found in '%s'"
565 (buffer-name dabbrev--last-buffer))
566 (setq dabbrev--last-buffer-found dabbrev--last-buffer))
567 (message nil))
568 (if (and (or (eq (current-buffer) dabbrev--last-buffer)
569 (null dabbrev--last-buffer))
570 (numberp dabbrev--last-expansion-location)
571 (and (> dabbrev--last-expansion-location (point))))
572 (setq dabbrev--last-expansion-location
573 (copy-marker dabbrev--last-expansion-location)))
580 (setq dabbrev--last-expansion expansion)
581 (setq dabbrev--last-abbreviation abbrev)
582 (setq dabbrev--last-abbrev-location (point-marker))))))
621 (setq dabbrev--last-abbrev-location (point))
641 dabbrev--last-abbrev-location (point))))
645 ;; dabbrev--last-obarray and dabbrev--last-completion-buffer
647 (setq dabbrev--last-table nil
648 dabbrev--last-abbreviation nil
649 dabbrev--last-abbrev-location nil
650 dabbrev--last-direction nil
651 dabbrev--last-expansion nil
652 dabbrev--last-expansion-location nil
654 dabbrev--last-buffer nil
655 dabbrev--last-buffer-found nil
681 of the expansion in `dabbrev--last-expansion-location'."
686 (and dabbrev--last-expansion-location
687 (goto-char dabbrev--last-expansion-location))
700 (setq dabbrev--last-expansion-location (point)))
714 (defun dabbrev--scanning-message ()
716 (message "Scanning `%s'" (buffer-name (current-buffer)))))
735 This sets `dabbrev--last-direction' to 1 or -1 according
737 It sets `dabbrev--last-expansion-location' to the location
742 (when dabbrev--last-buffer
743 (set-buffer dabbrev--last-buffer)
744 (dabbrev--scanning-message))
751 (setq dabbrev--last-direction (min 1 direction))
757 ;; or whatever buffer we were last scanning.
760 dabbrev--last-buffer)
762 (setq dabbrev--last-direction -1)
771 (setq dabbrev--last-direction -1)
772 (unless dabbrev--last-buffer
782 (setq dabbrev--last-buffer (pop dabbrev--friend-buffer-list))
783 (set-buffer dabbrev--last-buffer)
784 (dabbrev--scanning-message)
785 (setq dabbrev--last-expansion-location (point-min))
849 RECORD-CASE-PATTERN, if non-nil, means set `dabbrev--last-case-pattern'
865 (if dabbrev--last-case-pattern
867 (funcall dabbrev--last-case-pattern expansion)))
910 (setq dabbrev--last-case-pattern
955 `dabbrev--last-table' so that only distinct possibilities are found
972 (narrow-to-region dabbrev--last-expansion-location
976 ;; Look for a distinct expansion, using dabbrev--last-table.
996 table-string dabbrev--last-table
1003 ;; Put it into `dabbrev--last-table'
1005 (setq dabbrev--last-table
1006 (cons found-string dabbrev--last-table))