← Back to branch summary

~ubuntu-branches/ubuntu/hardy/vm/hardy

« back to all changes in this revision

Viewing changes to vm-virtual.el

  • Committer: Bazaar Package Importer
  • Author(s): Manoj Srivastava
  • Date: 2002-03-06 00:46:29 UTC
  • Revision ID: james.westby@ubuntu.com-20020306004629-d6hkaca872wyesmc
Tags: 7.03-1
* fixed defcustom syntax errors.
* minor compiler error cleanup.

Show diffs side-by-side

added added

removed removed

Lines of Context:
vm-virtual.el
528
528
(defun vm-vs-unmarked (m) (not (vm-mark-of m)))
529
529
(defun vm-vs-unedited (m) (not (vm-edited-flag m)))
530
530
 
 
531
(put 'sexp 'vm-virtual-selector-clause "matching S-expression selector")
531
532
(put 'header 'vm-virtual-selector-clause "with header matching")
532
533
(put 'label 'vm-virtual-selector-clause "with label of")
533
534
(put 'text 'vm-virtual-selector-clause "with text matching")
546
547
     "with less characters than")
547
548
(put 'more-lines-than 'vm-virtual-selector-clause "with more lines than")
548
549
(put 'less-lines-than 'vm-virtual-selector-clause "with less lines than")
 
550
(put 'sexp 'vm-virtual-selector-arg-type 'string)
549
551
(put 'header 'vm-virtual-selector-arg-type 'string)
550
552
(put 'label 'vm-virtual-selector-arg-type 'label)
551
553
(put 'text 'vm-virtual-selector-arg-type 'string)
585
587
                              vm-label-obarray)
586
588
                             nil)))))
587
589
              (t (setq arg (read-string prompt))))))
588
 
    (or (fboundp (intern (concat "vm-vs-" (symbol-name selector))))
589
 
        (error "Invalid selector"))
590
 
    (list selector arg)))
 
590
    (let ((real-selector
 
591
           (if (eq selector 'sexp)
 
592
               (let ((read-arg (read arg)))
 
593
                 (if (listp read-arg) read-arg (list read-arg)))
 
594
             (list selector arg))))
 
595
      (or (fboundp (intern (concat "vm-vs-"
 
596
                                   (symbol-name (car real-selector)))))
 
597
          (error "Invalid selector"))
 
598
      real-selector)))
 
599
 
591
600
 
592
601
;; clear away links between real and virtual folders when
593
602
;; a vm-quit is performed in either type folder.