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

Diff of /emacs/lisp/woman.el

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

revision 1.36 by eliz, Fri Sep 9 12:21:26 2005 UTC revision 1.37 by eliz, Fri Sep 9 12:29:02 2005 UTC
# Line 422  Line 422 
422  ;;   Geoff Voelker <voelker@cs.washington.edu>  ;;   Geoff Voelker <voelker@cs.washington.edu>
423  ;;   Eli Zaretskii <eliz@gnu.org>  ;;   Eli Zaretskii <eliz@gnu.org>
424    
 ;;; History:  
 ;;  For recent change log see end of file.  
   
425    
426  ;;; Code:  ;;; Code:
427    
# Line 956  This is usually either black or white." Line 953  This is usually either black or white."
953      :group 'woman-faces)      :group 'woman-faces)
954    
955    (defcustom woman-use-symbol-font nil    (defcustom woman-use-symbol-font nil
956      "*If non-nil then may use the symbol font.  It is off by default,      "*If non-nil then may use the symbol font.
957  mainly because it may change the line spacing (in NTEmacs 20.5)."  It is off by default, mainly because it may change the line spacing
958    \(in NTEmacs 20.5)."
959      :type 'boolean      :type 'boolean
960      :group 'woman-faces)      :group 'woman-faces)
961    
# Line 1262  Optional argument RE-CACHE, if non-nil, Line 1260  Optional argument RE-CACHE, if non-nil,
1260          ;; Unread the command event (TAB = ?\t = 9) that runs the command          ;; Unread the command event (TAB = ?\t = 9) that runs the command
1261          ;; `minibuffer-complete' in order to automatically complete the          ;; `minibuffer-complete' in order to automatically complete the
1262          ;; minibuffer contents as far as possible.          ;; minibuffer contents as far as possible.
1263          (setq unread-command-events '(9))       ; and delete any type-ahead!          (setq unread-command-events '(9)) ; and delete any type-ahead!
1264          (completing-read "Manual file: " files nil 1          (completing-read "Manual file: " files nil 1
1265                           (try-completion "" files) 'woman-file-history)))                           (try-completion "" files) 'woman-file-history))))))
       )))  
1266    
1267  (defun woman-select (predicate list)  (defun woman-select (predicate list)
1268    "Select unique elements for which PREDICATE is true in LIST.    "Select unique elements for which PREDICATE is true in LIST.

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

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