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 |
|
|
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 |
|
|
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. |