Lines Matching refs:nperm
865 (let ((nperm 0777))
866 (if (= (elt perms 1) ?-) (setq nperm (- nperm 400)))
867 (if (= (elt perms 2) ?-) (setq nperm (- nperm 200)))
869 (if (memq p-bit '(?- ?S)) (setq nperm (- nperm 100)))
870 (if (memq p-bit '(?s ?S)) (setq nperm (+ nperm 4000))))
871 (if (= (elt perms 4) ?-) (setq nperm (- nperm 40)))
872 (if (= (elt perms 5) ?-) (setq nperm (- nperm 20)))
874 (if (memq p-bit '(?- ?S ?l)) (setq nperm (- nperm 10)))
875 (if (memq p-bit '(?s ?S ?l)) (setq nperm (+ nperm 2000))))
876 (if (= (elt perms 7) ?-) (setq nperm (- nperm 4)))
877 (if (= (elt perms 8) ?-) (setq nperm (- nperm 2)))
879 (if (memq p-bit '(?- ?T)) (setq nperm (- nperm 1)))
880 (if (memq p-bit '(?t ?T)) (setq nperm (+ nperm 1000))))
881 nperm))