/[emacs]/emacs/lisp/electric.el
ViewVC logotype

Diff of /emacs/lisp/electric.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by pj, Sun Jul 15 16:15:34 2001 UTC revision 1.18.8.1 by miles, Fri Apr 4 06:20:04 2003 UTC
# Line 55  Line 55 
55                                &optional prompt inhibit-quit                                &optional prompt inhibit-quit
56                                          loop-function loop-state)                                          loop-function loop-state)
57    
58    (let (cmd    (let (cmd
59          (err nil)          (err nil)
60          (prompt-string prompt))          (prompt-string prompt))
61      (while t      (while t
62        (if (not (or (stringp prompt) (eq prompt nil) (eq prompt 'noprompt)))        (if (not (or (stringp prompt) (eq prompt nil) (eq prompt 'noprompt)))
# Line 123  Line 123 
123    (ding)    (ding)
124    (throw return-tag nil))    (throw return-tag nil))
125    
126  ;; This function is like pop-to-buffer, sort of.  ;; This function is like pop-to-buffer, sort of.
127  ;; The algorithm is  ;; The algorithm is
128  ;; If there is a window displaying buffer  ;; If there is a window displaying buffer
129  ;;      Select it  ;;      Select it

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.18.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26